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.REM_ 
IDENTIFICATION 

PRODUCT CODE: AC-8898F -MC 

PRODUCT NAME: CZLACFO LA36 TERM (DL11 & KL11) 

DATE: AUGUST 1978 

MAINTAINER: DIAGNOSTIC GROUP 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPFAR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 
et ey eel: OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
DIGITAL. 


COPYRIGHT (C) 1974,1979 BY DIGITAL EQUIPMENT CORPORATION 
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HISTORY 


DECO CZLAC-F-0 


CLOSED PROBLEM REPORT AA3318 


17 WAS REPORTED THAT A DL11-A OPERATED AT 110 BAUD CAUSED 
FAILURE IN THE AREAD ROUTINE BECAUSE THE 200 MSEC. DELAY IS 
NOT OF SUFFICIENT DURATION TO ALLOW SETTING OF THE RECEIVER 
REGISTER STATUS  ‘‘DONE'' BIT THROUGH THE MAINTENANCE BIT 
FACILITY. THE TIME DELAY WAS INCREASED FROM 200 TO 600 MSEC. 


CLOSED PROBLEM REPORT AA3643 


TESTS 56,57,60,61,62,63,64,65,AND 66 DO NOT RUN PROPERLY WHEN 

RUN ON AN LSI-11. THIS PROBLEM WAS RESOLVED BY CHANGING THE 

BRANCH AFTER THE CHAIN COMMAND TO GO BACK TO TEST FOR THE 

iar IN ORDER TO EFFECT THE APPROPRIATE ACTION DURING 
H . 


SECOND TIMEOUT IN TEST 64 ALLOWS EXCESSIVE WAIT FOR OPERATOR 
RESPONSE. THE TIME DELAY WAS REDUCED FROM ''177777"' TO ‘'600"'. 


COMMON ROUTINE TYPE DOES NOT SAVE THE CONTENTS OF RO RESULTING 
IN THE LOSS OF THIS INFORMATION AND CONSEQUENT FAILURE. 
INSTRUCTIONS WERE INCLUDED TO SAVE THE CONTENTS OF RO ON’ ENTRY 
INTO THE ROUTINE AND TO RESTORE THEM UPON EXIT. 


LOSS OF STACK CONTENTS FOR NON-LSI-11 COMPUTERS DUE TO 
INCORRECT SEQUENCE OF INSTRUCTIONS IN TEST 65 WAS ALSO REPORTED 
IN PROBLEM REPORT AA3803. REFER TO 1.3.1. 


CLOSED PROBLEM REPORT AA3803 


TESTING OF NON-LSI-11 COMPUTERS RESULTS iN THE PROGRAM HANGING 

UP BECAUSE THE STACK GETS POPPED AWAY IN TEST 65. THE BRANCH 

AFTER THE TEST FOR THE LSI1-11 SWITCH IN TEST 65 SHOULD GO TO 

THE CHAIN COMMAND FOR PROPER EXIT FROM THE TEST FOR NON-LSI-11 

tae ta CHANGE SUPERSEDES THE CHANGE RELEASED IN DEPO 
= = L oa = oe 


PROBLEM REPORT AA2390 


PROCESSORS WITHOUT HARDWARE SWITCH REGISTERS ARE NOT ABLE 10 
LOOP ON ERROR WITH THIS PROGRAM. INSTALLED “G FUNCTION TO 
FER Tt CHANGING SWITCH REGISTER SETTING DURING DIAGNOSTIC 
TESTING. 
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1.0 ABSTRACT 
THIS DIAGNOSTIC 1S DIVIDED INTO THREE BASIC SECTIONS: 
1. A CHECK OF THE CONSOLE TERMINAL INTERFACE LOGIC. 
2. A CHECK OF THE PRINTING CHARACTERISTICS AND CONTROL LOGIC. 


3. AN ECHO PORTION DESIGNED TO CHECK THE KEYBOARD AND TO AID IN 
THE DIAGNOSIS OF TERMINAL PROBLEMS. 


PATTERNS USED BY THE PRINTING TESTS WERE CHOSEN FOR EASE OF VISUAL 
VERIFICATION. THE ECHO TESTS WERE DESIGNED FOR MAXIMUM FLEXIBILITY, 
WITH TEST 24 ALLOWING ANY DESIRED PATTERN TO BE USED. 


2.0 REQUIREMENTS 
2.1 EQUIPMENT AND ASSIGNMENTS 


THE DIAGNOSTIC IS WRITTEN TO RUN ON ALL MODELS OF THE PDP-11 COMPUTER 
WITH EITHER A KL11 OR DL11 CONSOLE TERMINAL INTERFACE. THE DIAGNOSTIC 
1S PRESET TO TEST UP_TO 16 ADDITIONAL TERMINALS (ON DL11°S) ASSIGNED 
BETWEEN ADDRESSES 776500 AND 776676. THIS PRESET QUANTITY (16) AND 
PRESET ADDRESS (776500) CAN BE CHANGED BY DEPOSITING THE QUANTITY IN 
DLNR AND THE STARTING ADDRESS IN DLADR. FOR EXAMPLE, TO ALLOW FOR UP 
TO 31 ADDITIONAL TERMINALS, THE ADDRESS 775610 COULD BE PLACED INTO 
DLADR AND THE OCTAL EQUIVALENT OF 31, 1.€., (37) WOULD BE PLACED INTO 
DLNR. THE NUMBER OF ADDITIONAL DL11'S ACTUALLY TESTED WILL BE 
ADJUSTED AUTOMATICALLY DOWNWARD BASED UPON THE FIRST DL11 ADDRESS 
(WITHIN THE IMPLIED RANGE) FOUND TO BE UNRESPONSIVE. THUS IF THERE !5 
NO DLil PRESENT TO MATCH THE ADDRESS IN DLADR ONLY THE CONSOLE 
TERMINAL WILL BE TESTED. THEREFORE, ALL DL11°S IN EXCESS OF THE 
CONSOLE TERMINAL MUST HAVE CONTIGUOUS ADDRESS ASSIGNMENTS WITH THE 
LOWEST ADDRESS CORRESPONDING TO THE VALUE IN DLADR. 


THE CONSOLE TERMINAL (ASSIGNED STANDARD) CAN BE REASSIGNED BY PLACING 
THE ADDRESS OF ITS RECEIVER STATUS REGISTER INTO CONADD AND ITS 
RECEIVER INTERRUPT VECTOR INTO CONVEC. THIS REASSIGNMENT CAN BE MADE 
TO A TERMINAL WITHIN THE SET OF TERMINALS IMPLIED BY DLNR AND DLADR 
WITHOUT ADVERSE EFFECT. NOTE THAT A TERMINAL WITH A SLOWER SPEED (IF 
ANY) WILL DETERMINE THE SPEED AT WHICH ALL OF THE TERMINALS ARE 
TESTED. SUCH A TERMINAL SHOULD GENERALLY BE EXCLUDED FROM THE TEST, 
OR TESTED SEPARATELY. (RERER TO THE SYMBOL DEFINITIONS IN THE LISTING 
FOR THE ABOVE MENTIONED LOCATIONS.) 


2.2 STORAGE 


THE DIAGNOSTIC PROGRAM USES ALL OF 4K OF MEMORY WITH EXCEPTION OF THE 
AREA USED BY THE ABSOLUTE LOADER. 
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2.5 PRELIMINARY PROGRAMS 


ANY APPLICABLE PDP-11 DIAGNOSTICS SHOULD BE RUN ON THE PROCESSOR. If 
ANY ERRORS ARE ENCOUNTERED DURING THE INTERFACE CHECK, REFER TO THE 
APPROPRIATE INTERFACE DIAGNOSTIC FOR FURTHER HELP IN LOCATING THE 
PROBLEM IF NEEDED. 


2.4 ADDITIONAL PROGRAMS 


THIS DIAGNOSTIC IS FOR VERIFICATION OF BASIC TERMINAL FUNCTIONS ONLY. 
IF THE TERMINALS UNDER TEST HAVE HARDWARE OPTIONS INSTALLED RUN 
DIAGNOSTIC MAINDEC-11-DZLAF-A , THE LA36 TERMINAL OPTIONS TEST. 


3.0 LOADING PROCEDURE AND INITIALIZATION 


LOAD THE LA56 DIAGNOSTIC PROGRAM TAPE FOLLOWING NORMAL PROCEDURES. 
BEFORE STARTING THE PROGRAM, REFER TO THE DESCRIPTION OF THE ROUTINE 
“‘DLY'’. TIME DELAYS USED BY THE PROGRAM ARE A FUNCTION OF THE CPU 
MODEL AND MEMORY TYPE AND SHOULD BE SET-UP BEFORE RUNNING THE 
DIAGNOSTIC. THE ROUTINE 1S PRESET FOR A PDP-11/05 WITH CORE MEMORY. 
REFER TO SECTION 2.1 FOR NON-STANDARD TERMINAL ADDRESSES AND FOR 
TESTING MULTIPLE DL11 INTERFACES. 


IF A HARDWARE SWITCH REGISTER DOES NOT EXIST, THE PROGRAM WILL USE THE 
CONTENTS OF LOCATION 176 AS THE VALUE OF THE SWITCHES. WHEN THE 
PROGRAM STARTS UP, IT WILL ASK FOR A VALUE TO BE ENTERED BEFORE THE 
PROGRAM WILL PROCEED. 


IF THE CPU IS AN LSI-11, 11/03 BE SURE TO SET SWITCH REGISTER BIT 9 TO 
A 1. SPECIAL TESTS ARE RUN ON THE DLV11 INTERFACE. 


4.0 STARTING PROCEDURE 


4.1 STARTING ADDRESSES 


200(8) = RUN WITH SWITCH REGISTER CONTROL 

- PERFORM CONSOLE TERMINAL I/O TESTS. 
204(8) = RUN WITH SWITCH REGISTER CONTROL 

- SKIP CONSOLE TERMINAL 1/0 TESTS. 
210(8) = RUN WITH KEYBOARD CONTROL 

- PERFORM CONSOLE TERMINAL I/O TESTS. 
214(8) = RUN WITH KEYBOARD CONTROL 

- SKIP CONSOLE TERMINAL 1/0 TESTS. 


SEQ 0005 
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4.2 SWITCH REGISTER CONTROL WITH 1/0 TESTS 


4.3 


A. 


AI hon SWITCH REGISTER TO 200(8) AND PRESS THE LOAD ADDRESS 
ee H. 


SET SWITCH REGISTER BIT 9 TO A 1 IF THE PROCESSOR IS AN 
LSI-11, 11/03. REFER TO SECTION 5.1.5. 


SET THE SWITCH REGISTER BITS 7-0 EQUAL TO THE PAPER WIDTH IN 
1 OF THE NUMBER OF COLUMNS (OCTAL). REFER TO SECTION 


SET THE SWITCH REGISTER BIT 8 EQUAL TO 1 OR O AND PRESS THE 
START SWITCH. A MESSAGE WILL BE PRINTED INDICATING THE 
NUMBER OF DL11°S BEING TESTED. REFER TO SECTION 5.1.6. 


If BIT 8 WERE ZERO WHEN STARTING, THE PRINTER TESTS ARE 
EXECUTED SEQUENTIALLY, AFTER THE ENTIRE SERIES OF 1/0 TESTS 
ARE EXECUTED. 


IF BIT 8 WAS SET WHEN THE START SWITCH WAS PRESSED. THE 
ENTIRE SERIES OF 1/0 TESTS WILL BE EXECUTED AND THE CPU WILL 
HALT AT LOCATION SELHLT. THE PROGRAM WILL THEN BE WAITING 
FOR CONTROL VIA THE SWITCH REGISTER. 


SWITCH REGISTER CONTROL - WITHOUT 1/0 TESTS 


le ing SECTION 4.2 EXCEPT IN STEP A, SET THE SWITCH REGISTER TO 
204(8). 


SEQ 0006 
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295 
He 4.4 KEYBOARD CONTROL - WITH 1/0 TESTS 
298 A. SET THE SWITCH REGISTER TO 210(8) AND PRESS THE LOAD ADDRESS 
44 SWITCH. 
301 B. SET THE SWITCH REGISTER BITS 7-0 EQUAL TO THE PAPER WIDTH IN 
302 TERMS OF THE NUMBER OF COLUMNS (OCTAL). REFER TO SECTION 
303 aR SF 
304 
305 C. SET SWITCH REGISTER BIT 9 TO A 1 IF THE PROCESSOR IS AN 
sae LSI-11, 11/03. REFER TO SECTION 5.1.5. 
308 D. SET SWITCH 8 AND PRESS THE START SWITCH. A MESSAGE WILL BE 
309 PRINTED INDICATING THE NUMBER OF DL11'S BEING TESTED. REFER 
he . TO SECTION 5.1.6. 
312 E. If BIT 8 WAS ZERO WHEN STARTING, THE PRINTER TESTS ARE 
313 EXECUTED SEQUENTIALLY AFTER THE ENTIRE SERIES OF 1/0 TESTS 
‘i ARE EXECUTED. 
316 F IF BIT 8 WERE SET WHEN THE START SWITCH WAS PRESSED, THE 
317 ENTIRE SERIES OF 1/0 TESTS WILL BE EXECUTED FOLLOWED BY THE 
318 SELECT TEST MESSAGE. THE PROGRAM WILL THEN BE WAITING FOR A 
319 TEST SELECTION VIA ANY TERMINAL KEYBOARD. REFER TO SECTION 
as° pe 


4.5 KEYBOARD CONTROL - WITHOUT 1/0 TESTS 
Wg os SECTION 4.4 EXCEPT IN STEP A, SET THE SWITCH REGISTER 10 
4 (8). 


3.0 OPERATING PROCEDURE 


THE PROGRAM CAN BE CONTROLLED IN EITHER OF TWO METHODS: BY THE 
CONSOLE SWITCH REGISTER OR FROM THE KEYBOARD OF THE TERMINAL(S) UNDER 
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5.1 SWITCH REGISTER CONTROL 


THE VARIOUS SWITCHES AND THEIR FUNCTIONS ARE LISTED BELOW. SWITCHES 
MAY BE CHANGED AND SET AS DESIRED EXCEPT AS NOTED IN THE SPECIFIC 
SWITCH DESCRIPTIONS. REFER TO THE DETAILED SWITCH DESCRIPTIONS FOR 
FURTHER, MORE COMPLETE INFORMATION. 


SWITCH NUMBER DESCRIPTION 
15 1 (UP) = HALT AT END OF TEST 
O(DOWN) = CONTINUE TEST SEQUENCE 
14 1 (UP) = CONTINUE ON ERROR 
O(DOWN) = HALT ON ERROR 


13 1 (UP) = DRIVE ONLY CONSOLE TERMINAL 
OCDOWN) = DRIVE ALL TERMINALS 


11 1 (UP) = LOOP ON INDIVIDUAL TEST 
O(DOWN) = NORMAL TEST SEQUENCE 

9 1(UP) = CPU TYPE IS AN LSI-11, 11/03 
O(DOWN) = ALL OTHER PDP-11'S 

8 1(UP) = RUN TEST ONCE AND HALT 
O(DOWN) = LOOP ON TEST SEQUENCE 

5-0 TEST NUMBER SELECTION 

7-0 NUMBER OF COLUMNS AT START-UP 


5.1.1 SWITCH 15 


WITH SWITCH 15 IN THE UP POSITION, THE PROGRAM WILL HALT AT THE END OF 
THE CURRENT TEST. REPLACING SWITCH 15 10 THE DOWN POSITION AND 
PRESSING CONTINUE WILL CONTINUE THE NORMAL TEST OPERATION. DURING THE 
HALT, ANY OF THE CONTROL SWITCHES MAY BE CHANGED OR SET AS DESIRED. 


5.1.2 SWITCH 14 


PLACING SWITCH 14 IN THE UP POSITION WILL CAUSE THE PROGRAM 10 
CONTINUE ON ERRORS DURING ANY OF THE J/0 TESTS ONLY. WITH SWITCH 14 
DOWN, THE PROGRAM WILL HALT (AT ERRHLT) ON ANY ERRORS DURING THE 1-0 
TESTS WITH THE LOCATION OF THE ERROR IN RO. PRESSING CONTINUE WILL 
CAUSE THE PROGRAM TO CONTINUE IF SWITCH 14 IS DOWN. WITH SWITCH 14 
UP, PRESSING CONTINUE WILL CAUSE THE PROGRAM TO LOOP ON THE ERROR. 


SEQ 0008 | 
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NOTE 


ERROR HALTS CAN OCCUR ONLY DURING THE 
1/0 TESTS. THE TERMINAL IS CONNECTED T0 
A SERIAL LINE AND THERE IS NO ERROR 
INFORMATION RETURNED TO THE PROGRAM FROM 
THE TERMINAL. THEREFORE THE PROGRAM 
CANNOT REPORT ERRORS OCCURRING IN THE 
TERMINAL. ERRORS DETECTED DURING THE 
INTERFACE TESTS WILL RESULT IN HALTS AS 
DESCRIBED ABOVE. 


5.1.3 SWITCH 13 


PLACING SWITCH 15 IN THE DOWN POSITION WILL CAUSE THE DRIVING OF ALL 
MULTIPLE TERMINALS DURING THE PRINTER TESTS ONLY. IF SWITCH 13 IS UP, 
ONLY THE CONSOLE TERMINAL IS DRIVEN. 


** NOTE: SWITCH 135 SHOULD ONLY BE CHANGED WHEN THE PROGRAM IS WAITING 
FOR A TEST SELECTION. 


5.1.4 SWITCH 11 


PLACING SWITCH 11 UP AT ANY TIME WILL CAUSE THE PROGRAM TO LOOP ON THE 
CURRENT TEST AS LONG AS SWITCH 11 REMAINS UP. REPLACING SWITCH 11 
DOWN WILL CAUSE THE PROGRAM TO RESUME NORMAL OPERATION AT THE 
COMPLETION OF THE TEST. 


5.1.5 SWITCH 9 


PLACING SWITCH 9 UP AT THE START OF THE TEST WILL CAUSE AN AUTOMATIC 
CHANGE IN THE DELAY TIMING, AND THE EXECUTION OF SPECIAL DLV11 1/0 
TESTS. THE DLVI1 HAS NO MAINTENANCE MODE AND WILL CAUSE THE PROGRAM 
TO HANG IF TESTED AS A DL11. 


5.1.6 SWITCH 8 


WITH SWITCH 8 IN THE DOWN POSITION THE PROGRAM WILL CONTINUE TO LOOP 
THROUGH THE PRESENT TEST SEQUENCE. PLACING SWITCH 8 UP WILL CAUSE THE 
PROGRAM TO HALT (AT SELHLT) AT THE COMPLETION OF THE CURRENT TEST. 
AFTER THE HALT, SET THE CONTROL SWITCHES AS DESIRED AND SET SWITCHES 5 
TO 0 TO THE NEXT DESIRED TEST NUMBER, AND THEN PRESS CONTINUE TO START 
THE TEST. 


SEQ 0009 
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WHEN STARTING THE DIAGNOSTIC THE OPERATOR CAN SELECT A SPECIFIC TEST 
RATHER THAN AUTOMATICALLY STARTING THE PRINTING TEST SEQUENCE BY 
SETTING SWITCH 8 UP BEFORE STARTING THE DIAGNOSTIC. UPON COMPLETION 
OF THE 1/0 TEST SEQUENCE (IF BEING RUN) THE PROGRAM WILL EITHER HALT 
AT SELHLT WAITING FOR A TEST SELECTION VIA THE SWITCH REGISTER OR 
PRINT THE SELECT TEST MESSAGE AND WAIT FOR A TEST SELECTION FROM ANY 
KEYBOARD. REFER TO SECTION 4 FOR FURTHER INFORMATION. 


5.1.7 SWITCHES 5 TO 0 


SWITCHES 5 TO 0 ARE USED TO SELECT SPECIFIC TESTS WHEN UNDER SWITCH 
REGISTER CONTROL. TEST NUMBERS ARE ALWAYS IN OCTAL. 


5.1.8 SWITCHES 7 TO 0 (AT START-UP ONLY) 


AT START-UP ONLY, SWITCHES 7 TO 0 ARE USED TO SET THE DESIRED MAXIMUM 
NUMBER OF COLUMNS THE DIAGNOSTIC 1S TO TEST. IF THE NUMBER SET IS 
GREATER THAN 152(10) OR LESS THAN 30(10), THE PROGRAM WILL DEFAULT TO 
132(10). THE VALUE SET MUST BE IN OCTAL FORM. THUS, FOR NORMAL 
CPERATION LEAVE SWITCHES 7 TO 0 DOWN TO TEST THE FULL 132(10) COLUMNS. 
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tee 5.2 KEYBOARD CONTROL 
476 THE PROGRAM WILL BE UNDER KEYBOARD CONTROL WHENEVER THE DIAGNOSTIC IS 
477 STARTED AT LOCATION 210 OR 214. SWITCHES ON THE CONSOLE SWITCH 
478 REGISTER WILL HAVE NO EFFECT WHEN UNDER TERMINAL CONTROL EXCEPT FOR 
479 SWITCH 15. THE 1/0 TESTS CANNOT BE SELECTED WHEN UNDER KEYBOARD 
Pe 1} CONTROL. 
482 TO STOP A TEST AT ANY TIME, TYPE THE ‘'RUBOUT'' OR "DELETE" KEY ON ANY 
483 KEYBOARD. ANY TERMINAL MAY STOP THE TEST AND SELECT THE NEXT TEST IF 
484 SWITCH 13 1S DGWN. WHEN A TEST 1S STOPPED BY TYPING A ‘“'RUBOUT’’ OR 
485 “DELETE’’, THE TEST WILL TERMINATE AND THE FOLLOWING MESSAGE WILL BE 
486 TYPED: 
487 
ise SELECT TEST NUMBER 
490 AT THIS TIME, TYPE THE DESIRED TEST NUMBER FOLLOWED BY ANY ONE OF THE 
491 FOLLOWING CONTROL CHARACTERS: 
195 
4 
494 . (PERIOD) = RUN THE SELECTED TEST ONCE AND RETURN FOR ANOTHER 
re TEST SELECTION. 
4 
497 L = LOOP ON THE SELECTED TEST UNTIL A ‘"'RUBOUT’’ JS 
— TYPED. 
500 ) = START THE TEST SEQUENCE WITH THE SELECTED TES1. 
501 CONTINUE TO LOOP ON THE PRINTING TEST SEQUENCE 
502 UNTIL A “’RUBOUT'’ IS TYPED. 
3 
505 THE “'L"’ OR "’S'' MAY BE EITHER UPPER OR LOWER CASE, BUT THE TEST NUMBER 
506 MUST ALWAYS BE A 2 DIGIT OCTAL NUMBER. THE TEST NUMBER AND TERMINATOR 
507 ARE ECHOED BY THE PROGRAM, THUS EACH CHARACTER WILL BE PRINTED TwICeé 
508 If THE TERMINAL IS IN HALF DUPLEX. FOR ALL ECHO TESTS, THE "'L'’ AND 
509 ""S'' WILL ONLY RUN THE TEST ONCE (THE SAME AS IF TYPING A PERIGD). FOR 
510 ALL OPTION TESTS, THE ‘’S'’ WILL ONLY RUN THE TEST ONCE (THE SAME AS IF 
$11 TYPING A PERIOD), HOWEVER, TYPING AN ‘'L'’ WILL CAUSE THE PROGRAM TO 
$12 LOOP ON THE SELECTED TEST. If AN ERROR IS DETECTED IN THE TEST 
513 SELECTION CILLEGAL TEST NUMBER OR CONTROL CHARACTER), A QUESTION MARK 
a3 IS PRINTED AND THE MESSAGE WILL BE REPEATED. 
516 
$17 
HH 5.3 *G FUNCTION 
520 THE PROGRAM WILL SENSE *“G COMMANDS WHEN STARTED @ LOCATION 200 OR 204. 
521 CONSOLE SWITCH REG. VALUES WILL BE ENTERED FROM THE TTY AT START uP 
522 TIME WITH THE OLD VALUE INDICATED. 10 CHANGE A VALUE TYPE °G. IF 
$23 TEST WAS STARTED @ LOC 200, AT THE END OF A PRINT TEST THE NEW VALUE 
§24 CAN BE ENTERED. IF TEST WAS STARTED AT LOC 204, DATA CAN BE CHANGED 
525 BEFORE TEST FINISHES. “U ALLOWS INCORRECT DATA ENTRIES T0 BE DELETED 
526 AND A NEW ENTRY STARTED. 
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6.0 TEST DESCRIPTIONS 


6.1 PRINTING TESTS 


THESE TESTS ARE DESIGNED AS A TEST OF THE PRINTING MECHANISM AND THE 
ASSOCIATED CONTROL LOGIC. AT THE BEGINNING OF EACH TEST, THE TEST 
NUMBER WILL BE PRINTED INDICATING WHICH TEST IS BEING EXECUTED AND, IF 
THE TEST IS A FUNCTION OF THE NUMBER OF COLUMNS, THE NUMBER OF COLUMNS 
BEING TESTED WILL BE INDICATED. A DETAILED DESCRIPTION AND SAMPLE 
PATTERNS FOR EACH PRINTING TEST FOLLOWS: 


6.1.1 TEST 0 - DATA PATH TEST 


THIS TEST IS USED TO TEST THE DATA LINES TO AND THROUGH THE INTERFACE 
AND 10 THE TERMINAL. AN ALTERNATING BIT PATTERN IS SENT WHICH WILL 
PRINT ALTERNATING **S AND U'S IN A CHECKERBOARD PATTERN TO THE MAXIMUM 
COLUMN WIDTH. THE STARTING CHARACTER FOR EACH LINE IS ALTERNATED AND 
A TOTAL CF FOUR LINES ARE PRINTED. 


WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC LINE FEED 
AFTER EVERY RECEIVED CARRIAGE RETURN, THERE WILL BE A BLANK LINE 
BETWEEN EACH PRINTED LINE. 


EXAMPLE: 


FUTU UTE Ute reel eUeUeuey 
UtUeUtUrUeUeUeUeuryeyeUeUrurue 
FUTUEU TU eU Ure eyeleueury 
UtUeUtUeUrUrUrUeUlUrUeleyryeye 


6.1.2 TEST 1 = PRINTABLE CHARACTER TEST 


THIS TEST PRODUCES A CHECK OF ALL 94(10) PRINTABLE CHARACTERS. THE 
CHARACTERS ARE PRINTED IN GROUPS OF THREE WITH THREE GROUPS PER “INE, 
SEPARATED BY THREE SPACES BETWEEN GROUPS. THE FIRST COLUMN WILL 
CONTAIN ALL ASCII] CODES FROM 040 TO 077. COLUMN TWO WILL CONTAIN ALL 
ASCII CODES FROM 100 TO 137 = PRIMARILY THE CAPITAL LETTER SET. THE 
LAST COLUMN WILL CONTAIN ALL ASCII CODES FROM 140 TO 176 - PRIMARILY 
THE SMALL LETTER SET. 


WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC LiNE FEED 
AFTER EVERY RECEIVED CARRIAGE RETURN, THERE WILL BE A BLANK LINE 
BETWEEN EACH PRINTED LINE. 
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EXAMPLE: 
aaa i me | 
ae AAA AAA 
m=" BBB BBB 


$33 ZZ2 Z2Z2 
$33 CCC 

<<< \\A\ 

= })}) 

>>> 

7??? 


6.1.5 TEST 2 = NON-PRINTABLE CHARACTER TEST 


THIS TEST CHECKS ALL NON-PRINTABLE CHARACTERS THAT HAVE NO CONTROL 
FUNCTION IN THE LA356 TERMINAL OR THE LA36 OPTIONS (SUCH AS CR, LF, BS, 
& BEL). FIRST THE ASCII CODE WILL BE PRINTED FOLLOWED BY THE MNEMONIC 
AFTER A_ FEW SEPARATING SPACES. FCLLOWING THE MNEMONIC, THE ACTUAL 
CONTROL CHARACTER WILL BE SENT THREE TIMES AND NOTHING SHOULD HAPPEN 
AT THE PRINTER. THIS PATTERN IS REPEATED, THREE TIMES ON A LINE, 
UNTIL ALL OF THE NON-PRINTING CHARACTERS HAVE BEEN TESTED. 


WITH THE AUTO LINE FEED OPTION SET TC PRODUCE AN AUTOMATIC LINE FEED 
AFTER EVERY RECEIVED CARRIAGE RETURN, THERE WILL BE A BLANK LINE 
BETWEEN EACH PRINTED LINE. 


SEG 0015 
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EXAMPLE: 


020 DLE 021 DC1 022 odc2 
023 DCS 024 DC4 025 NAK 
026 SYN 027 ETB 030 CAN 
031 EM 032 SUB 034 FS 

035 GS 036 RS 037 US 

177 DEL 


6.1.4 TEST 3 = CARRIAGE RETURN TEST 


THIS TEST CHECKS THE CARRIAGE RETURN FROM ALL EVEN NUMBERED COLUMNS 
AND THE SPACING OF THE SOLENOID HEAD FROM THE LEFT MARGIN. IT IS ALSO 
A GOOD CHECK FOR PROPER OPERATION OF THE POSITION DECODER. 


THE TEST PRINTS A FULL LINE OF ALTERNATING 0°S AND SPACES, STARTING 
WITH A 0. AT THE END OF THE LINE THE PRINT HEAD IS RETURNED TO THE 
LEFT MARGIN WITH A CARRIAGE RETURN. THE SPACES ARE THEN FILLED IN BY 
SPACING THE PRINT HEAD OUT FROM THE LEFT MARGIN TO THE FIRST SPACE. 
PRINTING AN ‘'X"’, AND EXECUTING A CARRIAGE RETURN. THIS PATTERN JIS 
REPEATED UNTIL THE LINE IS COMPLETED. CHECK TO SEE THAT ALL X'S ARE 
4 THE MIDDLE OF THE SPACE BETWEEN THE TWO ZEROES ON EITHER SIDE OF 


EXAMPLE: 

OXOXOXOXOXOXOXOXOXOXOKXOXOXOXOX 
WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC LINE FEED 
AFTER EVERY RECEIVED CARRIAGE RETURN, THIS TEST WILL PRINT A LINE OF 


O*S AND SPACES, THEN PRINT A DIAGONAL LINE OF X'S. TO CORRECTLY CHECK 
THE ENCODER, THE AUTO LINE FEED OPTION SHOULD BE DISABLED. 


EXAMPLE: 
000000000 
x 


SEQ 0014 
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6.1.5 TEST 4 - MULTIPLE LINE FEED TEST 


THIS TEST CHECKS THE LINE FEED CAPABILITY OF THE PRINTER BY SENDING 
VARIOUS GROUPS OF LINE FEEDS INTERSPACED WITH REFERENCE LINES. THE 
NUMBER PRINTED AS THE REFERENCE LINE INDICATES THE NUMBER OF LINE 
FEEDS THAT FOLLOW. THE FIRST AND LAST LINES ALSO CONTAIN A STRING OF 
DASHES AS REFERENCE POINTS FOR MEASURING THE TOTAL DISTANCE BETWEEN 
THE TWO DASHED LINES, 1.€., 63(10) LINES. 


WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC LINE FEED 
AFTER EVERY CARRIAGE RETURN, THE NUMBER PRINTED WILL INDICATE ONE LESS 
THAN THE NUMBER OF LINE FEEDS (THE NUMBER OF BLANK LINES) THAT FOLLOW. 
THE TOTAL DISTANCE BETWEEN THE TWO DASHED LINES WILL THEN BE 69 LINES. 


EXAMPLE: 


\ 
15 BLANK LINES 
/ 
32 


\ 
31 BLANK LINES 
/ 
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6.1.6 TEST 5 - SINGLE LINE FEED TEST 


THIS TEST 1S DESIGNED TO CHECK THE TIMING OF SINGLE LINE FEEDS AND THE 
CAPABILITY OF DOING LINE FEEDS IN ALL COLUMNS. TWO REFERENCE LINES 
ARE USED BY THIS TEST (AND TEST 6) WHICH ALSO CAN BE USED TO EASILY 
CHECK THE NUMBER OF COLUMNS THE PRINTER IS PRINTING. 


THE FIRST REFERENCE LINE CONTAINS 130(10) ZEROES FOLLOWED BY Two 2'S 
IF TESTING 132(10) COLUMNS. IF LESS THAN 132 COLUMNS, THE LINE 
WILL CONTAIN O'S FOR TWO LESS THAN THE MAXIMUM NUMBER OF COLUMNS 
FOLLOWED BY THE TWO 2°S. THIS REFERENCE LINE IS A QUICK CHECK 
FOR 132(10) COLUMNS IF TESTING THE FULL 152(10) COLUMNS. THE SECOND 
REFERENCE LINE PRINTS A STRING OF NUMBERS ( 1 TO 9 & 0 ) REPEATED TO 
THE MAXIMUM COLUMN. THIS LINE, AGAIN, CAN BE USED AS A QUICK CHECK OF 
THE NUMBER OF COLUMNS. 


THE LINE FEED TEST IS ACCOMPLISHED BY: PRINTING THE FIRST REFERENCE 
LINE OF O'S AND TWO 2°S; THEN EITHER SENDING 60(10) 3°S, IF 
TESTING 132(10) COLUMNS, OR WAITING 1.8 SECONDS FOR AN LCV, IF TESTING 
LESS THAN 132(10) COLUMNS. IF TESTING 132(10) COLUMNS, NOTHING 
SHOULD HAPPEN, EXCEPT FOR AN LCV, AT THE END OF THE LINE. THE 3°S 
SHOULD BE LOST AND NEVER PRINTED. AFTER THE LCV, WITH THE PRINT HEAD 
AT THE EXTREME RIGHT, A CARRIAGE RETURN = LINE FEED WILL BE SENT 
FOLLOWED BY REPEATED BACKSLASHES ‘'\'' AND LINEFEEDS TO PRINT A DIAGONAL 
LINE DOWN THE PAPER. WHEN A BACKSLASH IS PRINTED IN THE MAXIMUM 
COLUMN, A CARRIAGE RETURN WILL BE SENT IMMEDIATELY AFTER THE LINE FEED 
AND THE SECOND REFERENCE LINE OF SEQUENTIAL NUMBERS WILL BE PRINTED. 
AFTER COMPLETING THE LINE, A CARRIAGE RETURN - LINE FEED WILL BE SENT 
AND THE PROGRAM WILL WAIT ONE SECOND FOR THE CARRIAGE RETURN FUNCTION 
TO COMPLETE. AFTER THE DELAY, THE REFERENCE LINE WILL BE REPEATED, 
THE LAST LINE BEING GUARANTEED TO BE CORRECT. ANY TIMING PROBLEMS 
DURING THE LINE FEEDS WILL SHOW AS MISPRINTS OR MISSING CHARACTERS 
DURING THE FIRST 16(10) CHARACTERS OF THE MIDDLE REFERENCE LINE. 
ALSO, ANY PAPER FEED PROBLEMS WILL CAUSE MISALIGNMENT OF THE SLASHES 
FORMING THE DIAGONAL LINE. 


SEQ 0016 


ee 
— eee ee ee ee 
me re eee ee ee ee 


a ——e 


LS 
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776 PAGE 17 


773 EXAMPLE: 
775 000000000000000000000000000022 


\ 
806 123456789012345678901274567890 
123456789012345678901254567890 


AFTER EVERY RECEIVED CARRIAGE RETURN, THERE WILL BE A BLANK LINE EVERY 


0 

5 WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC LINE FEED 
4 

5 PLACE A CARRIAGE RETURN IS EXECUTED. 
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EXAMPLE: 


0000000022 


1234567890 
1234567890 


6.1.7 TEST 6 = BACKSPACE TEST 


THIS TEST IS DESIGNED TO TEST THE PRINT TIMING AS IN TEST 5 AS WELL AS 
THE BACKWARD AND FORWARD MOVEMENT OF THE PRINT SOLENOID HEAD. 


THE TEST CONSISTS OF THE SAME FIRST REFERENCE LINE AS IN TEST 5S THEN 
A CARRIAGE RETURN-LINE FEED. A FULL LINE IS THEN PRINTED USiNG THE 
FOLLOWING PATTERN: 


FORWARD SLASH ‘'/"' 
BACKSPACE 
BACK SLASH se 


THIS PATTERN PRODUCES A LINE OF ALL X"S. THE TWO SLASHES SHOULD CROSS 
EXACTLY AT THE MIDDLE, PRODUCING THE X CHARACTER. WHEN THE LINE IS 
COMPLETED A CARRIAGE RETURN-LINE FEED IS SENT AND THE LAST TwO 
REFERENCE LINES ARE PRINTED AS IN TEST 5. ANY TIMING PROBLEMS WILL 
SHOW IN THE FIRST 16(10) CHARACTERS OF THE MIDDLE REFERENCE LINE: 
AGAIN AS IN TEST 5. 


WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC LINE FEED 
AFTER EVERY RECEIVED CARRIAGE RETURN, THERE WIiL BE A BLANK LINE 
BETWEEN EACH PRINTED LINE. 


EXAMPLE : 


000000000000000000000000000022 
TOXOOOO000000000000000000000000K 
12345678901 2345678901234567890 
1254567890123456789012 34567890 


SEQ 0018 
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6.1.8 TEST 7 = QVERPRINT TEST 


THIS TEST IS DESIGNED 10 CHECK THE SPACING AND REPEATABLE PRINTING 
CHARACTERISTICS OF THE PRINTER. THREE ROWS OF CHARACTERS ARE EACH 
OVERPRINTED TWO TIMES. THE ROWS CONSIST OF THE FOLLOWING CHARACTERS 
ALTERNATED ACROSS THE LINE: 


ROW 1 M-SP 
ROW 2 SP=-a 
ROW 3 &-SP 


THE RESULTING PATTERN WILL BE A CHECKERBOARD PATTERN AND THE 
cuiaartaen” CHARACTERS SHOULD BE ALIGNED PROPERLY WITH THE INITIAL 
CHARA >. 


EXAMPLE: 
MMMMPAM AMM MMA 
®@@?adadauaA?A @agaaa 
GREER ERRERERERRRER 
WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC LINE FEED 
AFTER EVERY RECEIVED CARRIAGE RETURN, THE LINES WILL NOT BE 
OVERPRINTED. THERE WILL BE THREE LINES OF EACH CHARACTER WITH A BLANK 


LINE BETWEEN EACH GROUP OF CHARACTERS. THE CHARACTERS IN EACH GROUP 
SHOULD BE IN THE SAME COLUMNS. 


EXAMPLE: 


SEG 0019 . 


———— - 
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6.1.9 TEST 10 = PRINTING FREQUENCY SWEEP TEST 


THIS TEST PRINTS THE CHARACTER "'H'’ REPEATEDLY, 30(10) CHARACTERS PER 
LINE FOR FOUR LINES. DURING THE FIRST TWO LINES, THE TIME INTERVAL 
BETWEEN CHARACTERS 1S INCREASED FROM 30(10) MILLISECONDS TO 1.8 
SECONDS USING THE FOLLOWING FORMULA TO CREATE A LOGARITHMIC INCREASE: 


NEW DELAY = OLD DELAY + OLD DELAY/16 + OLD DELAY/128 


THE LAST TWO LINES DO JUST THE REVERSE. THE TIME INTERVAL BETWEEN 
CHARACTERS IS DECREASED FROM 1.8 SECONDS TO 30(10) MILLISECONDS 
USING THE FOLLOWING FORMULA TO AGAIN CREATE A LOGARITHMIC DECREASE: 


NEW DELAY = OLD DELAY = OLD DELAY/16 = OLD DELAY/128 


LOOK FOR POSSIBLE MISALIGNMENT OF THE CHARACTERS OR SPACES BETWEEN 
CHARACTERS AS AN INDICATION OF TIMING PROBLEMS. 


WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC LINE FEED 
AFTER EVERY RECEIVED CARRIAGE RETURN, THERE WILL BE A BLANK LINE 
BETWEEN EACH PRINTED LINE. 


EXAMPLE: 


HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 


6.1.10 TEST 11 = RIBBON FEED TEST 
THIS TEST CHECKS THE RIBBON FEED MECHANISM BY PRINTING A SINGLE COLUMN 


OF 24 LINES OF X'S DOWN THE LEFT HAND MARGIN OF THE PAGE. VISUALLY 
Sy hg FOR PROPER OPERATION OF THE RIBBON FEED MECHANISM DURING THIS 


WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC LINE FEED 
AFTER EVERY RECEIVED CARRIAGE RETURN, THERE WILL BE A BLANK LINE 
BETWEEN EACH PRINTED LINE. 


EXAMPLE: 


~ 


SEQ 0020 
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969 PAGE 21 
970 
971 
ars 6.1.11 TEST 12 - PRINTER BELL TEST 
974 THIS TEST CHECKS THE PRINTER BELL BUFFER TO INSURE THAT EIGHT BELLS 
975 ARE DISTINCTLY HEARD, EVEN WHEN SENT AT THE MAXIMUM TRANSFER RATE. 
976 THE PROGRAM SENDS 8 BELL CODES AT THE MAXIMUM RATE TO THE PRINTER 
a THEN WAITS 2.5 SECONDS TO ALLOW THE OPERATOR TO HEAR THE BELLS. 
979 
980 
4 6.1.12 TEST 17 = LIFE TEST 
983 THIS TEST RUNS CONTINUOUSLY AND 1S RUN AS AN INDIVIDUAL, SPECIAL TEST. 
om IT 1S NOT PART OF THE STANDARD PRINTING TEST SEQUENCE. 
JRO THIS TEST PRINTS 2 LINES OF EACH PRINTABLE CHARACTER AND THEN REPEATS 
987 CONTINUOUSLY. THE SECOND LINE OF EACH CHARACTER IS OVERPRINTED 4 
988 TIMES TO CONSERVE PAPER. AT THE END OF EACH COMPLETE PASS THROUGH THE 
989 CHARACTER SET, A MESSAGE IS PRINTED INDICATING THE NUMBER OF PASSES 
990 EXECUTED. IF ANY CHARACTER (EXCEPT ‘'RUBOUT’’) IS TYPED ON THE KEYBOARD 
991 DURING THIS TEST, THE PATTERN WILL CHANGE AND RESTART WITH THE TYPED 
pas CHARACTER. THIS WILL ONLY HAPPEN IF KEYBOARD CONTROL IS IN USE. 
one EXAMPLE: 
996 AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
997 AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
998 BBBBBBBBBBBBBBBBBBBBBBBBBBEBBB 
999 BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB 
1001 
1002 If THE AUTO LINE FEED OPTION IS SET TO PRODUCE AN AUTOMATIC LINE FELD 
1003 AFTER EVERY RECEIVED CARRIAGE RETURN, THE TEST WILL PRINT SIX LINES OF 
1004 EACH CHARACTER WITH A BLANK LINE BETWEEN THE FIRST AND SECOND LINES AS 
a WELL AS BETWEEN EACH GROUP OF CHARACTERS. 
6 
1007 EXAMPLE: 
1008 
ath AAAAAAAAAAAAAAA 
1 
1011 AAAAAAAAAAAAAAA 
1012 AAAAAAAAAAAAAAA 
1013 AAAAAAAAAAAAAAA 
1014 AAAAAAAAAAAAAAA 
a AAAAAAAAAAAAAAA 
1016 
4 46 BBBBBBBBBBBBBBB 
1019 BBBBBBBBBBBBBBB 
1020 BBBBBBBBBBBBRBB 
1021 BBBBBBBBBBE .8BB 
1022 BBBBBBBBBBBBBBB 
1023 BBBBBBBBBBBBBBB 
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6.2 ECHO TESTS 


THESE TESTS ARE DESIGNED AS A TEST OF THE KEYBOARD AND AN AID IN 
ISOLATING TROUBLES WITHIN THE TERMINAL. AT THE BEGINNING OF EACH 
TEST, THE TEST NUMBER WILL BE PRINTED INDICATING WHICH TEST IS BEING 
EXECUTED. TYPING A ‘'RUBOUT'' OR ‘DELETE’ AT ANY TIME, WHETHER IN 
KEYBOARD CONTROL OR NOT, WILL EXIT THE CURRENT ECHO TEST AND PRINT A 
TEST TERMINATION MESSAGE. If IN KEYBOARD CONTROL, THE SELECT TEST 
MESSAGE WILL BE PRINTED AND THE PROGRAM WILL AWAIT A TEST SELECTION AS 
USUAL. IN SWITCH REGISTER CONTROL, THE PROGRAM WILL HALT (AT SELLHLT) 
WAITING FOR CONTROL VIA THE SWITCH REGISTER. A DETAILED DESCRIPTION 
OF EACH TEST FOLLOWS: 


6.2.1 TEST 20 = CHARACTER ECHO TEST 


THIS TEST 1S DESIGNED 10 OPERATE THE TERMINAL IN A SIMULATED LOCAL 
MODE. ANY CHARACTER TYPED ON THE KEYBOARD (EXCEPT A “'RUBOUT'’) WILL BE 
ECHOED 10 THE PRINTER. 


IF THE LA36 TERMINAL IS IN HALF DUPLEX WITH THE AUTO LINE FEED OPTION 
AVAILABLE, TYPING A CARRIAGE RETURN MAY CAUSE A GARBLED RESPONSE ON 
THE TERMINAL DURING THIS TEST. 


6.2.2 TEST 21 = LINE ECHO “EST, FAST RATE 


THIS TEST CONTINUALLY SENDS FULL LINES OF ANY CHARACTER UP TO THE 
MAXIMUM COLUMN WIDTH. THE TEST PRINTS A ‘0’ CHARACTER WHEN STARTED 
UNTIL A KEY IS TYPED ON THE KEYBOARD. THE PROGRAM WILL THEN SEND THE 
TYPED CHARACTER UNTIL ANOTHER CHARACTER IS TYPED OR THE TEST IS 
TERMINATED BY TYPING A “‘RUBOUT'’. THE CHARACTERS ARE TRANSMITTED AT 
THE MAXIMUM RATE WITH A CARRIAGE RETURN-LINE FEED INSERTED AFTER EVERY 
132(10) PRINTABLE CHARACTERS. 


IF THE LAS6 JS _IN HALF DUPLEX WHEN RUNNING THIS TEST, CHARACTERS MAY 
BE LOST OR GARBLED WHENEVER A CHARACTER IS TYPED ON THE KEYBOARD. 


WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC LINE FEED 
on its ae CARRIAGE RETURN, THERE WILL BE A BLANK LINE BETWEEN EACH 
PRINTED LINE. 


6.2.5 TEST 22 = LINE ECHO TEST, SLOW RATE 


THIS TEST 1S IDENTICAL TO TEST 21 EXCEPT A DELAY OF 1.8 SECONDS IS 
INSERTED BETWEEN EACH CHARACTER TO ALLOW THE PRINT HEAD 10 PERFORM AN 
LCV BETWEEN CHARACTERS. 


SEQ 0022 
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1078 PAGE 23 
1079 
1080 
ig 6.2.4 TEST 23 = CHARACTER/CODE ECHO TEST 
| 1083 THIS TEST WILL PRINT THE OCTAL CODE RECEIVED BY THE PROCESSOR FOLLOWED 
1084 BY THE CHARACTER OR THE MNEMONIC OF THE CHARACTER EVERY TIME A KEY IS 
| 1085 PRESSED ON THE KEYBOARD. THE PARITY OF THE RECEIVED CODE WILL BE 
| 1086 INDICATED AS EITHER ODD OR EVEN. ALLOW SUFFICIENT TIME BE TWEEN 
| ipo 24 CHARACTERS FOR THE LINE TO BE PRINTED. 
1089 WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC LINE FLED 
1090 AFTER EVERY RECEIVED CARRIAGE RETURN, THERE WILL BE A BLANK LINE 
ibe BETWEEN EACH PRINTED LINE. 
1093 EXAMPLE: 
1094 
1095 301 A ODD 
1096 263. 3 ODD 
1097 215 ~=CR EVEN 
1098 240 —s SP EVEN 
1099 
100 
Hs 6.2.5 TEST 24 = SELECTED PATTERN ECHO TEST 
10 THIS TEST IS DESIGNED TO GIVE MAINTENANCE THE FLEXIBILITY TO CHOOSE 
10 THEIR OWN PATTERNS FOR ISOLATING ANY SPECIFIC PROBLEMS WHICH MAY ARISE 
* IN THE FIELD. 
0 TYPE ANY CHARACTERS (EXCEPT CONTROL-C AND RUBOUT) AND EACH CHARACTER 
0 WILL BE ECHOED AS TYPED. A MAXIMUM OF 256(10) CHARACTERS MAY BE 
0 INPUTTED. NO CARRIAGE RETURNS OR LINE FEEDS ARE INSERTED BY THE 


PROGRAM, ALL CHARACTERS MUST BE INPUTTED BY THE OPERATOR. 10 
TERMINATE THE INPUT STRING TYPE A CONTROL-C, THE PROGRAM WILL THEN 
CONTINUALLY ECHO THE INPUTTED PATTERN. TO STOP THE PRINTING, TYPE 
CONTROL-C. THE PROGRAM WILL STOP PRINTING THE PATTERN AND WILL WAIT 
FOR EITHER ANOTHER PATTERN INPUT TERMINATED BY A CONTROL-C, OR THE 
SAME PATTERN MAY BE USED AGAIN BY TYPING CONTROL-C. TO EXIT THE TEST 
AT ANY TIME, TYPE A ‘’RUBOUT'’. 


WHEN ANY OPTIONS ARE AVAILABLE, BE CAREFUL WHAT CHARACTERS OR 
CHARACTER SEQUENCES ARE SELECTED. 
6.2.6 TEST 25 = BELL ECHO TEST 


THIS TEST 1S DESIGNED 10 TEST THE BELL ON COLUMN 64 IF TYPING HAS 
OCCURRED ON THE LINE. THE TEST PRINTS A MESSAGE: 


TYPE ANY PRINTABLE CHARACTER AND LISTEN FOR BELL ............ 


AFTER THE TEST MESSAGE IS PRINTED, TYPE ANY PRINTABLE CHARACTER ON THE 
KEYBOARD. THE CHARACTER WILL BE ECHOED AND THE BELL SHOULD RING. THE 
MESSAGE WILL THEN BE TYPED AGAIN. TYPE THE ‘’RUBOUT'’ KEY TO TERMINATE 
THE TEST AT ANY TIME, 
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6.4 STANDARD 1/0 TESTS 


THESE TESTS ARE DESIGNED AS A BRIEF CHECK OF THE CONSOLE TERMINAL 
INTERFACE LOGIC. EACH CHECK IS STRUCTURED AS AN INDEPENDENT TEST AND 
THE SWITCH REGISTER CONTROLS MAY BE USED. A DESCRIPTION OF EACH TEST 
1S GIVEN IN THE PROGRAM LISTING. ANY ERRORS ENCOUNTERED DURING THE 
1/0 TESTS WILL CAUSE A HALT AT LOCATION “‘ERRHLT’’ IF SWITCH 14 IS DOWN. 


' ~TITLE CZLACFO LA36 TERM (DL11 & KL11) 
:LA36 DIAGNOSTIC (DL11 & KL11 INTERFACE) 


; AUTHORS: ROBERT wW. BAKER 

; R. QUENNEVILLE 

; RALPH A. SCHAUBER 
: JOHN V. CHATALIAN 


;COPYRIGHT 1974,1979 DIGITAL EQUIPMENT CORP., MAYNARD. MASS. 01754 


-SBTTL SWITCH REGISTER OPTIONS 


SWITCH POSITION FUNCTION 

> 15 UP (1) HALT AT COMPLETION OF CURRENT TEST 
DOWN (0) CONTINUE NORMAL TEST SEQUENCE 

oe uP (1) CONTINUE ON ERROR 

DOWN (0) HALT ON ERROR 

8 UP (1) DRIVE ONLY CONSOLE TERMINAL 

DOWN (0) DRIVE ALL TERMINALS 

at UP (1) LOOP ON INDIVIDUAL TEST 

DOWN (0) NORMAL TEST SEQUENCE 

: 09 UP (1) CPU TYPE IS AN LSI-11, PDP-11/03 
DOWN (0) ALL OTHER PDP-11 CPU'S 

: 08 uP (1) HALT TO SELECT TEST AT END OF CURRENT TEST 
DOWN (0) LOOP ON TEST SEQUENCE 

> 05-00 TEST # SELECTION 

> 07-00 # OF COLUMNS AT START-UP 
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: CHGF 1 
; CHGF 2 
3 CHGF 3 
> CHGF4 
; CHGFS5 
: CHGF6 
3; CHGF 7 


-~SBTTL SPECIAL OPERATIONAL INFORMATION 


THE STANDARD CONSOLE TERMINAL INTERRUPT VECTOR AND REGISTER 
ADDRESSES ARE USED. TO REDEFINE THE LOCATION OF THE CONSOLE 
TERMINAL THE SYMBOLIC LOCATIONS ‘‘CONADD’’ AND ‘‘CONVEC'’ SHOULD 
BE CHANGED BEFORE START UP. 


BEFORE START UP REFER TO THE DESCRIPTION OF THE ROUTINE ‘DLY’’. 
TIMING IS A FUNCTION OF THE PDP=-11 MODEL AND MEMORY TYPE AND 
SHOULD BE SET UP BEFORE RUNNING THE DIAGNOSTIC. 


1F CPU IS A PDP-11/03 , LSI-11 SET SWITCH REGISTER 
B11 09 TO A 1. SPECIAL TESTS ARE RUN ON THE DLV11. 


SYSTEMS WITHOUT A_HARDWARE SWITCH REGISTER SHOULD USE 
MEMORY LOCATION 176 AS A SOFTWARE SWITCH REGISTER. 


THIS DIAGNOSTIC 1S FOR VERIFICATION OF BASIC TERMINAL 
FUNCTIONS ONLY. IF THE TERMINAL UNDER TEST HAS HARDWARE 
OPTIONS INSTALLED RUN DIAGNOSTIC MAINDEC-11-DZLAF-A, THE 
LA36 TERMINAL OPTIONS TEST. 


CONTROL G FUNCTION PERMITS CHANGING THE SOFTWARE SWITCH REGISTER 
AT ANY TIME AFTER A_ TEST. ALSO, AT TEST START, IF THERE IS 

NO HARDWARE SWITCH REGISTER, A MESSAGE WILL ASK FOR SOFTWARE 
SWITCH REGISTER SETTINGS WHICH MUST BE PROVIDED VIA TTY KEYBOARD. 
CONTROL U ALLOWS RESTARTING THE PROCESS IF AN ERROR WAS MADE. 

THE NUMBER MUST BE A SIX DIGIT OCTAL VALUE. 


ECO HISTORY 
NEW STORAGE LOCATIONS FOR REFERENCE IN “G MODE. 
CHANGE START UP FOR ENTERING SOFTWARE SWITCH REGISTER INFO. 
CHECK FOR “G BETWEEN TESTS. 
CLEAR INTERRUPT ENABLE BIT TO PREVENT PREMATURE INTERRUPTS. 
ROUTINE TO CHECK PRINTOLT, UPDATE SOFTWARE SWITCH REG. 
NEW MESSAGES FOR SOFTWARE SWITCH REG ROUTINES. 
COMBINING LSI-11 TESTS TO ELIMINATE CLEARING DONE BIT IN TKS 


SEQ 0025 


0013 


et ee 
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000000 


177776 


000001 


001000 


104000 
104001 
104002 
104003 
104004 
104095 
104006 
104007 
104010 
104011 
104612 
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~SBTTL SYSTEM EQUATES 


REGISTER EQUATES 


PC= 
PSW=177776 
SYSTEM EQUATES 


OWBWWWDWIOIWOOWOWIWOOIWOOOD 
°F el cel ed oe oe eh ee eee 


LSI11=BI119 
PROGRAM TRAP EQUATES 


TYPE=EMT+0 
ERROR=EMT+1 
EWHALT=EMT+2 
STRDRV=EMT+3 
STPCHV=EMT+4 
CHAIN=EMT+*5 
CHALT=EMT+6 
TYPEM=EMT+7 
DELAY=EM1+10 
TTYCTL=EMT+11 
CRLF =EMT+12 
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SYSTEM EQUATES 


>SCOPE SWITCH 

> TEST LOOP SWITCH 

>POP STACK ONCE 

>POP STACK TWICE 

>PRIORITY LEVEL DEFINITIONS 


FLAG FOR LSI-11,11/03 


SEQ 0026 
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SCRLF=EMT+13 
LF=EMT+414 
PRINTC=EMT+*15 
PRTIHDR=EPT+*16 
PRNT=EMT+17 
READ=EMT+20 
AREAD=EMT+21 
CR=EMT+22 
BIOASC=EMT+23 
FORWD=EMT+24 
READC=EMT+25 
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SEQ 0027 
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000000 


000032 


000042 


000046 


000052 


000174 
000176 
000200 


000214 
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000000 


000000 


000002 
000000 


000340 
000042 
000000 
000046 
011524 
000052 
010000 
000174 


000000 
000000 


000137 
000137 
000137 
000137 
000600 


000000 


001026 


001010 
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TRAP CATCHER & STARTING ADDRESSES 


MACHER: 


DISPREG: 


SWREG: 


SPBOT: 


-SBTTL TRAP CATCHER & STARTING ADDRESSES 
-ENABL ABS,AMA 


-ASECT 
-=0 

.+2 ;UNASSIGNED TRAP 
HALT 
. ;SP OVERFLOW, BUS ERROR TRAP 
.+2 :RESERVED INSTRUCTION TRAP 
HALT 

.+2 : TRACE TRAP 
HALT 

.+2 ; TRAP TO CALL 10x 
HALT 

.+2 :POWER FAIL TRAP 
HALT 
EMTINT EMT TRAP 
PRTY7 

~=42 
0 

=46 
LOGICAL 

~*$2 
010000 

-=174 

-WORD 0 ; SOFTWARE DISPLAY 
«WORD 0O ;SOFTWARE SWITCH REGISTER 

JMP START :START UP WITH 1/0 TESTS RUNNING 
JMP STARTI ;START UP, SKIP ALL 1/0 TESTS 


JMP START2 
JMP START3 


. = 600 
0 >BOTTOM OF STACK 


> START UP TERMINAL CONTROL WITH 1/0 TESTS 
START UP TERMINAL CONTROL WITHOUT 1/0 TESTS 


SEQ 0028 


— ee + ee. ee 
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CZLACF .P11 15-JUN-79 15:33 SYMBOL DEFINITIONS SEQ 0029 
1341 -SBTTL SYMBOL DEFINITIONS 
1342 : 
1343 ; 
1344 . 
1345 000602 177560 CONADD: 177560 sADDR OF CONSOLE RECEIVER STATUS REG 
1346 000604 000060 CONVEC: 60 *CONSOLE TERMINAL INTERRUPT VECTOR 
1347 000606 176500 DLADR: 176500 sADDRESS OF FIRST DL11, DEFAULT TO DL11-A,8 
1548 ;1F DL11-C,D,E,, THEN 
1349 ;SET TO 175610 FOR FIRST 16 (OF 31) OR 
1350 ;SET TO 176000 FOR LAST 16 (OF 31) 
1351 OR SET OTHER DESIRED START ADDRESS 
1352 000610 000020 DLNR: 16. 7# OF DLI1°S TO BE INITIALLY ASSUMED 
13553 000612 177560 TKS: 177560 CONSOLE RECEIVER STATUS REG 
13554 000614 177562 TKB: 177562 CONSOLE RECEIVER BUFFER 
1355 000616 177564 TPS: 177564 :CONSOLE TRANSMITTER STATUS REG 
1356 000620 177566 TPB: 177566 ;CONSOLE TRANSMITTER BUFFER 
1357 000622 000060 TKVTR: 60 -C.1. RECEIVER INTERRUPT VECTOR 
1358 000624 000200 TKLVL: PRTY4 :C.1. RECEIVER PRIORITY LEVEL 
1359 000626 000064 TPVTR: 64 ;C.7. TRANSMITTER INTERRUPT VECTOR 
1360 000630 000200 TPLVL: PRTY4 ;C.1. TRANSMITTER PRIORITY LEVEL 
1361 000632 000000 FSTDL: OPEN sADDRESS OF FIRST ACTIVE DL11 
1362 000634 000000 CNTLSW: OPEN >CONSOLE TERMINAL CONTROL SWITCH 
1363 000636 000000 RTNNO: OPEN :CONTAINS CURRENT TEST NUMBER 
1364 000640 000000 NXTST: OPEN CONTAINS ADDRESS OF NEXT TEST 
1365 000642 000000 SCOPTR: OPEN CONTAINS ADDRESS OF TEST SCOPE ENTRY 
1366 000644 000000 PRGID: OPEN CONTAINS TEST PROGRAM INDICATORS 
1367 000646 000000 CRBUF: OPEN 
1368 000650 000000 CTRA: OPEN 
1369 000652 000000 WIDTH: OPEN >CURRENT PAPER WIDTH, BINARY 
1370 000654 000000 LEVEL: OPEN sLEVEL OF EXECUTION 
1371 000656 090000 DLCNT: OPEN :# OF MULTIPLE DL11S 
1372 000660 000000 ICTR OPEN 1/0 TEST ITERATION COUNT 
1373 000662 000000 REPT OPEN ; TEMP STORAGE FOR TESTS E021 & E022 
1374 000664 000000 BRCTR: OPEN ; COUNTER FOR ROUTINE ‘‘AREAD’’ 
1375 000666 000000 COUNTS: OPEN COUNTER FOR ROUTINE ‘’PRINTC’’ 
1376 000670 000000 XCSR OPEN sADDRESS OF MULTIPLE DL11 STATUS 
1377 000672 000251 TIMER: 251 ;1 MSEC COUNTER FOR ROUTINE ‘‘DELAY'' 
1378 000674 000000 SPCNT: OPEN sCOUNTER FOR TEST ROUTINE ‘'PT3"° 
1379 000676 000000 CURTST: OPEN ;ADDRESS OF CURRENT TEST 
1380 000700 000000 TEMPCH: OPEN TEMP STOR FOR ECHO TESTS 
1381 000702 000000 PARITY: OPEN PARITY FLAG FOR RECEIVED CHAR 
1382 000704 000000 PCHAR: OPEN >CHAR CODE WITH PARITY BIT 
1383 000706 000000 LFCNT: OPEN COUNTER FOR TEST ROUTINE ‘'PT4"' 
1384 000710 000000 INCHK: OPEN >CHECK FOR INPUT FLAG 
1385 000712 000000 TEMP: OPEN > TEMPORARY WORKING STORAGE 
1386 000714 177570 SR: 177570 :SW REG ADDRESS 
1387 000716 000000 CNTR: OPEN > TIME COUNTER FOR LSI-11 TESTS 
1388 seweneee CHGE])  weeeeereererene 
1389 000720 177570 DISPLAY: 177570 DISPLAY REGISTER 
1390 000722 (00000 TIB: OPEN > TEMPORARY KYBD BUFFER STORAGE 
1391 000724 000000 TEMPST: OPEN ; TEMPORARY WORK LOCATION 
1392 000726 000000 COUNT: OPEN ;LOOP COUNT FOR TEST 
1393 000730 000000 FILL: OPEN >ZERO FILL SWITCH 
1394 000732 000000 MODE:  GPEN sNUMBER OF DIGITS TO TYPE 
f+, 000734 000000 CNT: OPEN > 1TERATION COUNT 
1596 peeeeteterererenee reste eee 
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SEQ 0050 
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000736 


001042 


001046 
001052 
001056 


001064 
001072 
001074 
001076 
001100 
001106 
001114 
001122 
001126 
001132 
001140 
001142 
001146 
001152 
091156 
001162 
001166 
001174 
001200 
001206 
001212 
001216 
001222 
001230 


005737 


R KL 
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000654 


177777 
104006 


104011 
005406 


104011 
177777 


005406 
104006 
000600 


000006 
000004 
001076 


177777 


000202 
000176 
000174 
000004 
000006 
000176 


013752 


003546 
003776 
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005356 
001772 


001772 
005356 


001772 
005356 


005356 
001772 


000004 
177622 


000672 
000714 
000720 


000714 


177416 
000004 


000024 
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PROGRAM INITIALIZATION & CONTROL 
-SBTTL PROGRAM INITIALIZATION & CONTROL 


;erteteene 
: COMMON HALT---WHEN IN SWITCH REGISTER CONTROL THE CPU 
WILL BE ADVANCED TO THIS COMMON HALT WHERE 
A NEW TEST WILL BE EXPECTED TO BE STARTED 


,erenreere 


CHLT: 


SELHLT: 
START1: 


START2: 


START3: 


START: 


STARTX: 


,eeeeeeeeeee rene 


CHGF 2: 


643: 
65$: 
66$: 
67$: 


60$: 


,eteeerersereees 


MOV 


JSR 


LEVEL TEST CURRENT LEVEL 
SELHLT ;BRANCH IF 0, DO NOT HALT 
ea ;PUT ADDRESS OF CALLER INTO RO 


>RETURN FROM INTERRUPT 
#177777, ATOX sFORCE END OF 1/0 TESTS 
ACHALT ,WAITE >FORCE SR CONTROL 


STARTX 

WTTYCTL WAI TF FORCE TERMINAL CONTROL 

WAT), ATOX >FORCE ALL 1/0 TESTS 

STARTX 

ATTYCTL WAITE >FORCE TERMINAL CONTROL 

#177777,AT0X >FORCE END OF 1/0 TESTS 

STARTX 

#AT1,ATOX >FORCE ALL I/0 TESTS 

#CHALT ,WAITF >FORCE SR CONTROL 

#SPBOT,SP >SET STACK POINTER 

6, > CSP) SAVE CURRENT VECTOR 

4,-~ (SP) 

#64$ 084 ;SET UP LOC. 4 FOR NON-EXISTANT 
;MEMORY TRAP 

#-1,aSR ;REFERENCE HARDWARE SWITCH REGISTER 

65$ If IT = -1,USE SOFT Sw REG 

66$ ; THEN USE HARDWARE Sw REG 

(SP)+,(SP)+¢ >CORRECT THE STACK, NO HDWE SW REG 

#202, TIMER sADJUST TIMER FOR LSI-11 

#SWREG,SR :POINT TO SOFT Sw REG 

WDISPREG, DISPLAY ;POINT TO SOFT DISP REG 

(SP)+, 084 RESTORE VECTORS 

(SP)+,a#6 

#SWREG, SR :13 SOFT SWREG SELECTED 


60$ :1f NOT,BR OVER NEXT OPER 
PC,CNTILU SOFT SW REG INPUT ROUTINE 


TKVTR,R1 
MTTINTS,(RI)*  ;VECTOR ADDRESS TO LOC 60 
TKLVL,(R1)¢ :PRIORITY TO LOC 62 


alKB >CLEAR DONE FLAG 


#i00,aTKS :SET TTY INTERRUPT ON 

INCHK ALLOW INPUT CHECKING 

#6 ,MACHER > CLEAN UP 

PRGID > INITIALIZE PROGRAM FLAGS 

CNTLSW sINITIALIZE TERMINAL CONTROL SWITCH 
LEVEL INITIALIZE LEVEL 

MPFAIL 24 SET ADDR POWER FAIL ROUTINE 
PC,CONIT :SET UP CONSOLE TERMINAL ADDRESS 


SEQ 0031 
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001240 
001244 
001250 
001252 
001256 
001260 
001264 
001270 
001274 
001300 
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001312 
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001316 
001320 


017701 
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177454 
177400 
000204 


000035 
000204 
000652 


014627 
000003 


000000 


000240 001302 
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, eee eeereee 


sREAD THE PAPER WIDTH, NUMBER OF COLUMNS, 

>FROM SWITCH REGISTER POSITIONS 0-7. SAVE AND 

:CONVERT TO 3 ASCII CHARACTERS. A WIDTH 61132 

sOR L130 COLUMNS (DECIMAL) WILL BE ABORTED 10 132. 

sTHE SWITCHES MAY BE CHANGED ONCE THE PROGRAM TITLE OR THE DL11 COUNT 
sMESSAGE HAS STARTED TO PRINT. 


;eetereeree 


1$: 


2$: 
3$: 


4$: 
5$: 


G 
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aSR,R1 


#177400,R1 


R1,#204 
?$ 
R1,#35 
3$ 


#NOP ,4$ 


5 
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;PUT (SR) INTO RI 

;SAVE ONLY BITS 0-7 

> TEST NO. COLUMN GT132 

COLUMNS GT132, DEFAULT TO 132 
>CHECK IF NO. COLUMNS LT 30 

>NOT LT 30 NOR GT 132 

;COLUMNS LT 30 OR GT 132, DEFAULT 
; SAVE NO. COLUMNS IN WIDTH 

ADDR TO STORE ASC11 COLUMN VALUE 
;DO A 3 CHAR. CONVERSION 

»CONVERT NO. COLUMNS TO ASCII 


; TRANSMIT A 
>NULL CODE 
; TYPE PROGRAM TITLE FIRST TIME RUN 


SEQ 0032 


— oe 2 a = 
fe eee ee eee a re ee a e+ r+ eee ees ee oe ee ee oe ++ 


se 


H 3 
MACY11 350A(1052) 13-JUN-79 15:35 PAGE 33 


CZLACFO LAS6 TERM (DL11 & KL11) 5 
CZLACF P11 15-JUN-79 15:33 PROGRAM INITIALIZATION & CONTROL SEQ 0053 

1481 stereeerere 

1482 sTHIS NEXT PART CHECKS THE PRESENCE OF DL11-A OR DiL11-C 

1483 :STARTING AT 776500. A MESSAGE WILL BE PRINTED INDICATING THE NUMBER 
1484 >PRESENT. THE PRINTER DIAGNOSTIC WILL ADDRESS EACH OF 

1485 ;THE MULTIPLE DL11S IN THE SYSTEM IF SWITCH 13 1S DOWN (0). 
beet: :terererene 

4 

1488 001326 012737 001406 000004 6%: MOV WENDZ2A,MACHER > INITIALIZE TIME OUT TRAP 
1489 001334 013700 000606 MOV DLADR ,RO : ADDRESS OF FIRST DL11 TO RO 
1490 001340 013701 000610 MOV DLNR,R1 ;SET DL CHECK COUNT 

1491 001344 005037 000656 CLR DLCNT > INITIALIZE DLCNT 

1492 001350 005710 ENDS: TST (RO) :1S DL PRESENT? 

14953 001352 012737 001420 000004 MOV WEND2 ,MACHER ;YES, RESET TIME OUT TRAP 
1494 001360 010037 000632 MOV RO,FSTOL >STORE ADDRESS OF FIRST DL11 
1495 001364 000401 BR 2$ ; CONTINUE 

1496 001366 005710 1$: TST (RO) :1S DL11 PRESENT 

1497 001370 062700 000010 2$: ADD #10,R0 >POINTER AND DL11 ADDRESS 
1498 001374 005237 000656 INC DLCNT ; INCREMENT COUNT OF DL11'S 
1499 001400 005301 DEC R1 >DECREMENT DL CHECK COUNT, DONE? 
1500 001402 001407 BEQ ENDS ;BRANCH IF DONE 

1501 001404 000770 BR $ >CHECK PRESENCE OF NEXT DL11 
1502 001406 005301 END2A: DEC R1 ;DONE DL CHECK? 

1503 001410 001404 BEQ END4 sYES, E017 

1504 001412 062700 000010 ADD #10,R0 >NO, CHECK NEXT DL 

1505 001416 000754 BR END 3 ; CONT INUE 

1506 001420 022626 END2: POPSP2 ;DL11 NOT PRESENT 

1507 001422 013701 000656 ENDG: MOV DLCNT,R1 :GET # DL11°S 

1508 001426 012700 014564 MOV #DL11S1,R0 ;ADR OF ASCII] CHAR STORAGE 
1509 001432 012702 000002 MOV #2,R2 :# OF ASCII CHARS 

1510 001436 104023 BIOASC ; CONVERT NUMBER 

1511 001440 104007 TYPEM > TYPE MESSAGE 

1512 001442 014551 DL11S 

1513 

1514 seeeeereree 

1515 sEXECUTE THE STRING OF CONSOLE TERMINAL 1/0 TESTS 

1516 ; THEN EITHER HALT AT LOCATION SELHLT OR CONTINUE WITH 

1517 >PRINTER TESTS AS A FUNCTION OF SR BIT 8. 

1518 ;eneeeereee 

1519 

1520 001444 005037 000636 CLR RTNNO >SET ROUTINE NO = 0 

1521 001450 005037 000654 CLR LEVEL sSET LEVEL = 0 

1522 001454 023727 005356 177777 CMP AT0X,#177777 ;SEE IF 1/0 1S TO BE SKIPPED 
15235 001462 001517 BEQ SKIP 

1524 001464 012737 005354 000640 MOV WATO,NXTST sADDRESS OF FIRST 1/0 TEST 
1525 001472 104024 FORWD ;SET UP TEST PARAMETERS 

1526 001474 000177 177176 JMP aCURTST :GO0 10 1/0 TEST ROUTINE 


a NT - 
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001500 
001500 
001504 
001512 
001514 


001652 


004737 


001420 
012737 


00001 
000644 
040000 
177777 
177072 


100000 
000654 


004000 


000660 


000400 
001772 


177060 
000636 
000654 
000006 
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000634 


177162 
000642 


000644 


177120 


177076 


000004 
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THIS PORTION 1S THE COMMON RETURN 
FOR ALL THREE CLASSES OF TESTS. 


I--I1F AN ERROR OCCURRED DURING AN 1/0 TEST THE 
OPERATOR CAN CAUSE THAT TEST TO BE LOOPED 
WITHOUT ANY FURTHER ERROR HALTS BY 
SETTING THE “‘SCOPE*’ BIT (#14) ON THE SR=1. 
RESETTING SR BIT 14 TO 0 WILL ALLOW THE 
ERROR HALT TO OCCUR AGAIN IF IT STILL EXISTS. 


e--I1F THE OPERATOR IS IN THE MAINTENANCE MODE, (BIi 8=1 
AT START UP TIME), AND BIT 11=1, THE SELECTED PROGRAM WILL 


FIRST HALT. THEN HIT CONTINUE AND PROGRAM WILL LOOP CONTINUOUSLY. 


1f BIT 8=0, AND BIT 11=0, THE SELECTED PROGRAM WILL BE 


ADVANCED TO THE NEXT TEST IN ITS CLASS. 


AS LONG AS BITS 


8 AND 11 = 0, THE CLASS OF TESTS SELECTED WILL BE CON- 
UOSLY SEQUENCED THROUGH. 

BIT 8=1, AND BIT 11=0, THEN THE CPU WILL HALT AT LOC 
SELHLT AND WAIT FOR THE NEXT TEST NUMBER 19 BE SET IN 


If 


THE SWITCH REGISTER. 


6 
,eeeraeeere 


CHGF 3: 
CHAINN: 


2$: 


3$: 


4$: 


5$: 


6$: 


CHAINY: 


1$: 


JSR 
BIT 


PC,CKSWR 
#1,CNTLSW 
1$ 

PRGID 

3$ 
#SCOPSW,aSR 
2$ 
#-1,SCOPTR 
2$ 
@SCOPTR,aSP 


#B1T15,PRGID 
LEVEL 


4$ 
@NITRSW,@SR 
5$ 

IC7R 

6$ 
#B118,aSR 
6% 

WAITF 


aSR 

1$ 
RTNNO,RO 
LEVEL 


bb 
#6 , MACHER 


;SEE IF A “G HAS BEEN GIVEN 

:CHECK IF TERMINAL CONTROL 

7;BRANCH IF NOT 

:GO TO TERMINAL CONTROL 

: TEST ERROR BIT IN PRGID 

;BRANCH IF ERROR BIT NOT SET 

sERROR, CHECK IF SCOPE OPTION ON 
;BRANCH IF NO SCOPING 

;YES, CHECK IF OK TO SCOPE THIS TEST 
;BRANCH IF NOT OK 

>PUT ADDR OF SCOPE ENTRY INTO STACK 
;GO TO SCOPE ENTRY IN TEST 

;CLEAR ERROR IND. IN PRGID 

sCHECK LEVEL 

:BRANCH IF LEVEL=0 

: TEST LOOP SWITCH ON (=1) 

;BRANCH IF NO LOOP TEST 

;GO BACK TO TEST 

;DECREMENT TEST ITERATION COUNT 
:BRANCH IF COUNT=9 

:NOT ZERO, REPEAT TEST 

> TEST IF SEQUENCE TEST (BIT8 
:BRANCH TO NEXT TEST IF BIT8 
:GO WAIT FOR MORE INPUT , 
:POP 2 OFF STACK 

> THIS FORMERLY WAS RESET 
;CHECK SR 

;BRANCH IF NO HALT WANTED 
;CURRENT TEST NUMBER TO RC 
sHALT (NOT FOR TEST SELECTION) 
:TEST THE CURRENT LEVEL 
sBRANCH IF 0 

:CLEAN UP 


) 
=0 
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001660 


001762 
001766 


001772 
001774 


092064 


012706 


005237 


104006 


000177 


000600 
177777 
005354 


176764 
177777 


000400 


000200 
007374 
000006 
000600 


176710 
000654 


000006 
000600 
176702 
177700 
000037 


000644 
000200 


002614 
000640 


176606 


000640 
000640 
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176764 
000644 
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000004 


000004 
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001772 
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PROGRAM INITIALIZATION & CONTROL 


23: 
3$: 


SKIP: 


NEXT: 


NEXT]: 


MOV #SPBOT,SP :SET UP STACK POINTER 

FORWD ;SET UP VALUES FOR NEXT TEST 

CMP =| ,NXTST ;END OF 1/0 TESTS (=-1) 

BNE 2$ ;BRANCH IF NOT END 

MOV WATO,NXTST RESET NXTST TO FIRST 1/0 TEST 
FORWD ;SET UP VALUES FOR NEXT TEST 

JMP @CURTST :G0 TO TEST 

CMP #-1 ,NXTST ;END OF 1/0 TESTS (=-1) 

BNE NEXT ;BRANCH IF NOT 

BIT #B118,aSR sTEST IF WANT TEST SELECTION RIGHT AWAY 
BNE NEXT1 ;BRANCH IF NOT 

BIS #B117,PRGID >BYPASS SCOPING 

MOV #PTO,NXTST : PROD TESTING, GO TO PRINTER TESTS 
MOV #6 ,MACHER > CLEAN UP 

MOV #SPBOT,SP >SET UP STACK POINTER 

FORWD SET UP NEXT TEST PARAMETERS 

JMP aCURTST :GO TO ROUTINE 

INC LEVEL 


,eetarerrerese 


;WAIT FOR FURTHER INSTRUCTIONS: 


-LOAD PROGRAM NUMBER INTO BITS 0-5 OF THE SR 

~SET SR BIT 11=1 TO LOOP ON SELECTED TEST 

~SET SR BIT 11=0 AND BIT 8=0 TO LOOP THROUGH 
SEQUENCE OF SELECTED TESTS. 

“SET SR BIT 11=0 AND BIT 8=1 TO HALT AGAIN AFTER 
EXECUTING TEST ONCE 


ieeeeeeneee 


WAITF: 


CHALT ;OR TTYCTL iF START WAS AT 210 
MOV #6 ,MACHER :CLEAN UP 

MOV #SPBOT,SP >SET UP STACK POINTER 

MOV asSR,RO >GET CURRENT SW REG 

BIC #177700, RO 

CMP RO,#37 > TEST IF PROG NO. IS 1/0 TEST 
BLOS 1$ s>BRANCH IF EQ OR LT 37. AN ECHO OR PRINTER 
a < :1/0 TEST, CLEAR PRGID 

BIS #B117,PRGID :BYPASS SCOPING 

CLC :CLEAR C BIT 

ROL RO >GET PROGRAM ADDRESS OUT OF 
MOV PRGTABCRO) ,NXTST;PROGRAM ADDRESS TABLE 

CMP NXTST,MWAITF > TEST IF LEGAL TEST NO. 

BEQ WAILTF :BRANCH IF ILLEGAL 

FORWD ;SET UP TEST PARAMETERS 

JMP aCURTST :GO TO TEST 


SEQ 0055 


nee ere em ene a ws ee we + ee ee _ = 
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1629 -eeeereeenre | 
1630 :TTY1l-- THIS SECTION 1S USED WHEN THE DIAGNOSTIC IS BEING CONTROLLED By 
1631 ; THE CONSOLE TERMINAL. IT IS EFFECTIVE ONLY WHEN THE DIAGNOSTIC 
1632 : STARTING ADDRESS IS 210 AND SR BIT 8 WAS SET AT START TIME. 
1633 : THE RESPONSE TO THE MESSAGE ‘SELECT TEST NO.'’ MUST BE THE 2 
1634 : DIGIT OCTAL TEST NUMBER FOLLOWED By : 
1635 "'L'' TO LOOP ON TEST 
1636 : "“S'' TO LOOP ON SEQUENCE 
1637 : "".'" TO EXECUTE TEST ONCE 
1638 ALL SPACES WILL BE IGNORED. AN ILLEGAL INPUT WILL BE FLAGGED BY A ‘'?"" 
1639 AND THE RETYPING OF THE ABOVE MESSAGE. 
1640 :eeeeeerere 
1641 
1642 002070 022626 TTY1: POPSP2 ;POP 2 FROM STACK 
1645 002072 105777 176514 TSTB aTKs ; TEST IF ANY INPUT 
1644 002076 100013 BPL 1$ ;BRANCH IF NOT 
1645 0062100 017705 176510 MOV aTKB,R5 :GET CHAR 
1646 002104 042705 177600 BIC #177600,R5 ;MASK BITS 
1647 002110 020527 000177 CMP R5,#177 ;CHECK IF RUBOUT 
1648 002114 001004 BNE 1$ ;BRANCH IF NOT 
1649 002116 042737 0044C0 000634 BIC #4400,CNTLSW ;CLEAR LOOP BITS 
1650 002124 000413 BR TTY1B 
1651 002126 032737 004000 000634 1$: BIT WNITRSW,CNTLSW ;CHECK IF LOOP ON TEST 
1652 002134 001401 BEQ 2$ ;BRANCH IF NO LOOP ON TEST 
1653 002136 000002 RT] ;LOOP ON TEST 
1654 002140 032737 000400 000634 2$: BIT #B1T8,CNTLSW : TEST IF LOOP ON SEQUENCE 
1655 002146 001402 BEQ TTY1B ;BRANCH IF NO LOOP ON SEQUENCE 
1656 002150 000137 001626 JMP CHAINY ;CHAIN TO NEXT TEST 
1657 002154 012737 177777 000710 tTTv1B8: Mov #-1, INCHK :STOP INPUT CHECKING 
1658 007162 012700 000036 MOV #30., ;DELAY FOR HALF DUPLEX 
1659 002166 104010 DELAY 
1660 002170 104007 TYPEM 
1661 002172 015041 MESG3 : TYPE MESSAGE 
1662 002174 005037 000710 CLR INCHK >ALLOW INPUT CHECKING AGAIN 
1663 002200 104020 1$: READ ;WAIT FOR INPUT 
1664 002202 023727 000700 000040 CMP TEMPCH, #40 ;TEST IF CHAR IS A SPACE 
1665 002210 001773 BEQ 1$ ;BRANCH IF YES 
1666 002212 012700 000036 MOV #30.,R0 ;DELAY FOR HALF DUPLEX 
1667 0C2216 104010 DELAY 
1668 002220 104017 PRNT sREADY? 
1669 002222 117777 176366 176370 MOVB aTKB,aTPB sECHO CHAR 
1670 002230 004737 002552 JSR PC ,TESTC ;CHECK IF CHAR IS OK 
1671 002234 000541 BR 8$ ;NO, ERROR 
1672 002236 010005 MOV RO,RS :0K, PUT CHAR INTO R5 
1673 002240 006305 ASL R5 ;SHIFT INTO POSITION 5-3 
1674 002242 006305 ASL R5 
1675 002244 006305 ASL R5 
1676 002246 104020 2$: READ ;WAIT FOR NEXT CHAR 
1677 002250 023727 000700 000040 CMP TEMPCH, #40 ;CHECK IF A SPACE 
1678 002256 001773 BEQ 2$ ;BRANCH IF SPACE 
1679 002260 012700 000036 MOV #30. ,R0 ;DELAY FOR HALF DUPLEX 
1680 002264 104010 DELAY 
1681 002266 104017 PRNT sREADY? 
1682 002270 117777 176320 176322 MOVB aTKB,aTPB :ECHO CHAR 
1685 062276 004737 002552 JSR PC,TESTC ;CHECK IF CHAR IS OK 
1684 002302 000516 BR 8$ ;ERROR IN CHAR 


eee ems ee 
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1685 002304 060005 ADD RO,R5 ;OK,R5 NOW = OCTAL TEST NO. 
1686 002306 104020 3$: READ ;WAIT FOR TERMINATION CHARACTER 
1687 002310 023727 000700 000040 CMP TEMPCH, #40 ;CHECK IF SPACE 
1688 002316 001773 BEQ 3$ :BRANCH IF SPACE 
1689 002320 012700 000036 MOV #30.,R0 ;DELAY FOR HALF DUPLEX 
1690 002324 104010 DELAY 
1691 002326 104017 PRNT ;READY? 
1692 002330 117777 176260 176262 MOVB aTKB,aTPB ;ECHO CHAR 
1693 002336 012737 004001 000634 MOV #4001 ,CNTLSW ;SET BITS 11 8 Y 
1694 002344 023727 000700 000114 CMP TEAPCH, #114 3NO, IS IT AN "L'' ? 
1695 002352 001427 BEQ 5$ >BRANCH IF YES 
1696 002354 023727 000700 000154 CMP TEMPCH #154 >CHECK LOWER CASE 
1697 002362 001423 BEQ 5$ 
1698 002364 023727 000700 000123 CMP TEMPCH #125 sNO, IS IT AN °’S” 
1699 002372 001414 BEQ 4$ ;BRANCH IF YES 
1700 002374 023727 000700 000163 CMP TEMPCH, #163 >CHECK LOWER CASE 
1701 002402 001410 BEQ 4$ 
1702 002404 023727 000700 000056 CMP TEMPCH #56 swO, IS 1T A.” ? 
1703 002412 001052 BNE 8$ >NO, ERROR 
1704 002414 012737 900001 000634 MOV #1, CNTLSW YES SET ONLY BIT O IN CONTROL wD 
1705 002422 000403 BR 5$ , 
1706 002424 012737 000401 000634 4$: MOV #401,CNTLSW >SET BITS 8 & O 
1707 002432 012737 000006 000004 5S: MOV #6 ,MACHER *CLEAN UP 
1708 002440 012706 000600 MOV #SPBOT,SP > INIT SP 
1709 002444 020527 000040 CMP R5 #40 :1S THIS AN 1/0 TEST 
1710 002450 103033 BHIS 8$ SBRANCH IF YES ° 
1711 002452 020527 000030 CMP R5,#30 1S THIS AN OPTION TEST? 
1712 002456 103007 BHIS 6$ :SKIP IF YES 
1713 002460 020527 000020 CMP R5,#20 1S THIS AN ECHO TEST 
1714 002464 103404 BLO 6% :BRANCH IF NOT 
1715 002466 012737 000001 000634 MOV #1, CNTLSW FORCE ECHO TEST TO A SINGLE RUN 
1716 002474 000402 BR 7$ sLEAVE THIS TERMINAL AS CONSOLE 
1717 002476 004737 003776 6$: JSR PC, CONIT sRESET CONSOLE TERMINAL ADDRESS 
1718 002502 052737 000200 000644 7$: BIS #B17T7,PRGID >BYPASS SCOPING 
1719 002510 000241 CLC :CLEAR C BIT 
1720 002512 606105 ROL R5 
1721 002514 016537 002614 000640 MOV PRGTAB(RS) ,NXTST;ADDR OF TEST 10 NXTST 
1722 002522 023727 000640 001772 CMP NXTST MWAITE sCHECK IF TEST EXISTS 
1723 002530 001403 BEQ 8$ >BRANCH IF NOT 
1724 002532 104024 FORWD sSET UP TEST PARAMETERS 
1725 002534 000177 176136 JMP aCURTST :GO 10 TEST 
1726 002540 104017 8$: PRNT + CHECK IF af PINTER 1S READY 
1727 002542 112777 000077 176050 MOVB #77,a1PB END A 
1728 002550 000601 BR TTY1B TRY AGAIN 
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LL 
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fe 3 sTESTC--CHECKS THAT THE INPUTTED CHARACTER IS BETWEEN 0 AND 7 INCLUSIVE 

1731 002552 023727 000700 000060 TESTC: CMP TEMPCH , #60 CHECK IF NUMERIC AND EQ OR GT 0 

1732 002560 1063001 BHIS 1$ ;BRANCH IF OK 

1733 002562 000207 RTS PC ;ERROR RETURN 

1734 002564 023727 000700 000067 1$: CMP TEMPCH, #67 ;CHECK IF EQ OR LT 7 

1735 002572 101401 BLOS 2$ ;BRANCH IF OK 

1736 002574 000207 RTS PC ;ERROR RETURN 

1737 002576 062716 900002 2$: ADD #2,aSP ;SET UP RETURN ADDRESS 

1738 002602 013700 000700 MOV TEMPCH,RO ;GET CHAR 

1739 002606 042700 177770 BIC #177770,R0 SAVE ONLY THE DIGIT 

1740 002612 000207 RTS PC ;NORMAL RETURN 
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1741 002614 007374 PRGTAB: PTO :DATA PATH TEST 
1742 002616 007450 PTI >PRINTER CHARACTER TEST 
1743 002620 007572 P12 :NON-PRINTING CHARACTER TEST 
1744 002622 010166 PT3 = CARRIAGE RETURN TEST 
1745 002624 010306 PT4 :MULTIPLE LINE FEED TEST 
1746 002626 010464 PTS :SINGLE LINE FEED TEST 
1747 002630 010670 P16 :BACKSPACE TEST 
1748 002632 011056 P17 :OVERPRINT TEST 
1749 002634 011270 PT10 ;PRINTING FREQUENCY SWEEP TEST 
1750 002636 011426 PT11 :RIBBON FEED TEST 
1751 002640 011460 PT12 :PRINTER BELL TEST 
1752 002642 001772 WALTE : SPARE 
1753 002644 001772 WAITE : SPARE 
1754 002646 001772 WAITE : SPARE 
1755 002650 001772 WALTE : SPARE 
1756 002652 011550 PT17 “LIFE TEST 
1757 002654 012120 £020 > CHARACTER ECHO TEST 
1758 002656 012170 E021 ;LINE ECHO TEST, FAST RATE 
1759 002660 012226 E022 ;LINE ECHO TEST. SLOW RATE 
1760 002662 012500 E023 : CHARACTER/CODE ECHO TEST 
1761 002664 013022 E024 :SELECTIVE PATTERN ECHO TEST 
1762 002666 013570 E025 :BELL ECHO TEST 
1763 002670 001772 WAITE : SPARE 
1764 002672 001772 WALTF : SPARE 
1765 002674 001772 WAITF : SPARE 
1766 002676 001772 WAITE : SPARE 
1767 002700 001772 WAITE > SPARE 
1768 002702 001772 WAITE : PRARE 
1769 0027046 001772 WAITE : SPARE 
1770 002706 001772 WAITF : SPARE 
1771. 002710 001772 WAITE : SPARE 
1772 002712 001772 WAITE : SPARE 
1773 002714 005354 ATO :1/0 TEST NO. 40 
1774 002716 005406 AT1 :1/0 TEST NO. 41 
1775 002720 005440 AT2 :1/0 TEST NO. 42 
1776 002722 005472 AT3 :1/0 TEST NO. 43 
1777 0027246 005524 ATG :1/0 TEST NO. 44 
1778 002726 005614 ATS :1/0 TEST NO. 45 
1779 002730 005672 AT6 :1/0 TEST NO. 46 
| 1780 002732 005762 AT? :1/0 TEST NO. 47 
1781 002734 006032 AT10 :1/0 TEST NO. 50 
1782 002736 006070 A111 :1/0 TEST NO. 51 
1783 002740 006130 A112 :1/0 TEST NO. 52 
| 1784 002742 006204 AT13 :1/0 TEST NO. 53 
1785 002744 006264 AT14 :1/0 TEST NO. 54 
1786 002746 006350 A115 :1/0 TEST NO. 55 
1787 002750 006450 AT16 :1/0 TEST NO. 56 
1788 002752 006516 AT17 :1/0 TEST NO. 57 
| 1789 002754 006566 AT20 :1/0 TEST NO. 60 
| 1790 002756 006660 AT21 :1/0 TEST NO. 61 
| 1791 002760 006764 A122 :1/0 TEST NO. 62 
1792 002762 007072 AT2 :1/0 TEST NO. 63 
| 1793 002764 007204 AT 24 “LSI TEST NO. 64 
| 1794 002766 001772 WAITE : SPARE 
| 1795 002770 001772 WAITE : SPARE 
| 1796 002772 001772 WAITF - SPARE 


a 
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1797 002774 001772 WAITF : SPARE 

1798 002776 001772 WAITF ; SPARE 

1799 003000 001772 WAITF : SPARE 

1800 003002 001772 WAITF : SPARE 

1801 003004 001772 WAITF > SPARE 

1802 003006 001772 WAITF : SPARE 

1803 

1804 ;eeeeneeene 

1805 ZEMTINT ------------ SERVICE ROUTINE FOR TRAPS THROUGH 

1806 : LOCATION 30. 

1807 ,aeeaeeeeene 

1808 

1809 063010 011646 EMTINT: MOV aSP,-(SP) ;PUSH STACKED PC TO GET A WORK COPY. (Q) 
1810 003012 162716 000002 SUB #2,aSP ;SUB 2 TO POINT TO CALLING TRAP INSTR. 
1811 003016 017616 000000 MOV a(SP),aSP >PLACE TRAP INSTR INTO THIS STACK WORK AREA. 
1812 003022 121627 000035 CMPB asP,#35 sEXAMINE ITS RIGHT SIDE. (Q) 

1813 003026 101402 BLOS 2$ >BRANCH IF WITHIN RANGE OF ESTABLISHED TABLE. 
1814 003030 000000 1$: HALT sELSE HALT. 

1815 003032 000776 BR 1$ 

1816 003034 006116 2s: ROL asP >MULT INSTR BY 2 TO GET WORD DISPLACEMENT. 
1817 003036 042716 177001 BIC #177001.aSP ;STRIP OFF OP CODE AND LS BIT. 

1818 003042 062716 003064 ADD #EMTTAB,aSP ;ADD IN STARTING ADDRESS OF TABLE. 

1819 003046 017616 000000 MOV a(SP),aSP ;FROM TABLE GET OUT DESIRED POINTER. 

1820 003052 005046 CLR - (SP) ;PUSH A ZERO PSW. 

1821 003054 012746 003062 MOV #3$,-(SP) ;PUSH A PC = TO #3$ OF THIS ROUTINE. 

1822 003060 000002 RTI :DO RTI (POP-POP) TO ESTABLISH THE ZERO PSw. 
M4 003062 000136 3$: JMP a(SP)+¢ :JMP TO ROUTINE LEAVING STACK AS FOUND. 
1825 003064 003164 EMTTAB: TYP ;MESSAGE OUTPUT ROUTINE 

1826 003066 003406 ERR :1/0 TEST ERROR ROUTINE 

1827 003070 003434 EHLT s UNCONDITIONAL HALT 

1828 003072 003444 STLSRV ;KEYBOARD VECTOR/PRIORITY SETUP 

1829 003074 003474 STLSPV ;PRINTER VECTOR/PRIORITY SETUP 

1830 003076 001500 CHAINN ; COMMON TEST EXIT 

1831 003100 000736 CHLT :SR BIT 15 HALT 

1832 003102 003252 TYPM :MESSAGE OUTPUT ROUTINE, MULTI DEVICES 
1833 003104 003524 DLY :DELAY ROUTINE 

1834 003106 002070 TTY1 ;CONSOLE TERMINAL CONTROL 

1835 003110 003302 $CRLF ; CARRIAGE RETURN-LINE FEED TO ALL DL11'S 
1836 003112 003230 SSCRLF ; CARRIAGE RETURN-LINE FEED TO CONSOLE 
1837 003114 003304 $LF ;LINE FEED ONLY (TO ALL) 

1838 003116 004412 SPRIC sPRINT CHAR 

1839 003120 003324 SPRHDR :PRINT TEST HEADER 

1840 003122 004402 SPRNT >PRINTER READY 

1841 003124 004200 SREAD ;READ CHAR 

1842 003126 003726 SAREAD :1/0 TEST READ ROUTINE 

1843 003130 003314 SCR ;CARRIAGE RETURN ONLY (TO ALL) 

1844 003132 004074 $BTASC ;BINARY TO ASCII CONVERSION 

1845 003134 003650 $F ORWD ;FORWARD ROUTINE ( BETWEEN TESTS ) 

1846 003136 004272 SREADC ;READ CONSOLE KYBD ONLY 

1847 003140 003160 SPARET ;SPARE EMT 

1848 003142 003160 SPARET ;SPARE EMT 

1849 003144 003160 SPARET ; SPARE EMT 

1850 003146 003160 SPARET ;SPARE EMT 

1851 003150 003160 SPARET > SPARE EMT 


1852 003152 003160 SPARE T - SPARE EMI 
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1853 003154 003160 SPARET 7 SPARE EMT 

1854 003156 003160 SPARET ;SPARE EMT 

1855 003160 000000 SPARET: HALT :HALT IF TRAP TO UNDEFINED 
Hs 003162 000776 BR SPARET sEMT IS ATTEMPTED. 

1858 

1859 

1860 

Hg ~SBTTL COMMON ROUTINES USED BY LA36 TESTS 

1863 :eekeeeeeee 

1864 : 

1865 >THIS SECTION CONTAINS MOST ROUTINES CALLED By 

1866 >THE VARIOUS TESTS EITHER BY TRAPPING THROUGH LOCATION 

is we :30 OR BY SUBROUTINE CALLS (JSR PC,#e®) 

1869  eeeeeereee 

1870 . 

1871 :TYPE-- A COMMON ROUTINE USED TO TYPE MESSAGES ON THE 

1872 ; CONSOLE TERMINAL ONLY. THE NULL CHARACTER TERMINATES 
1873 ; THE MESSAGE. CALLED THROUGH AN EMT TRAP. 

1874 : CALLING SEQUENCE 

1875 TYPE 

1876 ; MESG ;ADDRESS OF MESSAGE 

1877 : 

1878 seeeeeeeeee 

1879 003164 010046 TYP: MOV RO,-4SP) :SAVE RO 

1880 003166 016601 000002 MOV 2(SP),R1 :GET POINTER TO ADDR. OF MESG. 
1881 003172 062766 000002 000002 ADD #2,2(SP) 

1882 003200 011101 MOV (R1),R1 ;ADDR. OF MESG 10 Rij 

1885 003202 112100 18: MOVB (R1)4+,RO ;GET CHAR 

1884 003204 100403 BM] 2% ;BRANCH IF WANT AUTO CRLF 
1885 003206 001004 BNE 3$ :PRINT CHAR IF NOT NULL 

1886 003210 012600 MOV (SP)+,R0 sRESTORE RO 

1887 003212 000002 RT] sEXIT JF NULL CHAR 

1888 003214 104013 2$: SCRLF ;YES, SEND CR-LF 

1889 003216 000771 BR 1$ :GET NEXT CHAR 

1890 003220 104017 3$: PRNT >PRINTER READY? 

1891 003222 110077 175372 MOVB RO,aTPB ;LOAD PRINTER BUFFER WITH CHAR 
Yo 003226 000765 BR 1$ :GO GET NEXT CHAR 

1894 003230 104017 $SCRLF: PRNT ;PRINTER READY? 

1895 003232 112777 000015 175360 MOVB #15,a1PB :SEND CR 

1896 003240 104017 PRNT >PRINTER READY? 

1897 003242 112777 000012 175350 MOVB #12,a1PB > SEND LF 

1898 003250 000002 RT] SRETURN TO CALLER 
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003252 


003300 
003302 
003312 
003314 


003320 
003322 


003324 


003404 
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000770 


104022 
012700 
104015 
090002 


012700 


104015 
000002 


000002 


000002 


000012 


000015 


000000 


000636 


177770 
000060 


000636 
177770 
000060 
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O00000000K 
MULT] TYPE-A COMMON ROUTINE TO OUTPUT 


A MESSAGE ON ALL DL11S IF THE MULTI TEST 
SWITCH (BIT 13) IS RESET. THIS ROUTINE IS USED By 


THE PRINTER TESTS TO TYPE HEADINGS. 


IF A UNIT 


1S NOT READY, THE CHARACTER WILL NOT BE TYPED. 


; TYPR--- 

> MKMKXMMKKKK 

1YPM: MOV 
ADD 
MOV 

1$: MOVB 
BM] 
BNE 
RT] 

2$: CRLF 
BR 

3$: PRINTC 
BR 

SCRLF: CR 

SLF: MOV 
PRINTC 
RTI 

SCR: MOV 
PRINTC 
RT] 


,;eereeeeete 


“ROUTINE TO PRINT TEST HEADER 


é 
,;eeraenenere 


$SPRHDR: MOV 


(SP) ,R1 


#2,aSP 


(R1),R1 
(R1)+,RO 
2$ 


3% 


1$ 
1$ 


#12,R0 


#15,R0 


#0,R0 


RTNNO,RO 


RO 
RO 


RO 
#177770,R0 
#60,R0 


RT 


NNO, RO 
#177770,R0 


;GET POINTER TO ADDR OF MESG 


;ADDR OF MESG TO RI 
;GET CHAR 

>BRANCH IF WANT AUTO CR-LF 
>CONTINUE IF NOT NULL 

>; RETURN 

>YES, SEND CR-LF 

>NEXT CHAR 

>PRINT CHAR 

>GO GET NEXT CHAR. 


:SEND CR 

:SET LF CHAR 
;SEND IT 

:RETURN TO CALLER 


:SET CR CHAR 
sSEND IT 
:RETURN 


; TRANSMIT 
sNUL CODE. 
;PRINT MESSAGE 


>GET TEST NUMBER 
>GET FIRST DIGIi 


>MASK FIRST DIGIT 
MAKE ASCII 

>PRINT DIGIT 

;GET TEST NUMBER AGAIN 
>MASK LAST DIGIT 

MAKE ASCII 

PRINT DIGIT 

; CRLF 

;BLANK LINE 

; RETURN 


SEQ 0042 


0 LLL eee eerie 
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1954 seeereereee 

1955 

1956  ERRA-- COMMON ERROR RETURN FROM 1/0 TESTS. HALTS 

1957 ; WITH ADDRESS OF ERROR IN RO. TO CONTINUE 

1958 ; ON SAME TEST BUT NOT HALTING ON ERROR, 

ass : SET THE SCOPE BIT (14) = 1 AND PRESS CONTINUE 

1961 sate eeeenee 

1962 

1963 003406 032777 040000 175300 ERR: BIT #SCOPSW,ASR ;CHECK SCOPE SWITCH 

1964 003414 001404 BEQ 1$ ;BRANCH IF NO SCOPE 

1965 003416 005737 000644 TST PRGID ;SCOPING WANTED, FIRST ERROR? 
1966 003422 10000 BPL 1$ ;BRANCH AND HALT ON FIRST ERROR 
1967 003424 00000 RTI ;SCOPE EXIT 

1968 003426 052737 100000 000644 18: BIS #BIT15,PRGID ;SET ERROR INDICATOR 

1969 003434 01160 EHLT: MOV aSP,RO 

1970 003436 005740 TST -(RO) sADDRESS OF CALL INTO RO 
1971 003440 000000 HALT 

ior 003442 000002 ERRHLT: RT] ;RETURN TO TEST FOLLOWING CALL 
1974 seeeeeeeeee 

1975 

1976 STLSRVe-- THIS ROUTINE SETS UP KEYBOARD INTERRUPT 

oh ; VECTOR AND PRIOITY. CALLING SEQUENCE 

1979 : STRDRV 

ant ; AT20C sLOCATION OF NEW INTERRUPT VECTOR 

1982  eeeereeeee 

1983 

1984 003444 017637 000000 003464 STLSRV: MOV a(SP),STPRA+2 ;SET RETURN ADR AND VECTOR 
1985 003452 062716 000002 ADD #2,aSP 

1986 003456 013701 000622 MOV TKVTR,R1 

1987 003462 012721 000000 STPRA: MOV #0, (R1)¢ 

1988 003466 013721 000624 MOV TKLVL,(R1)¢ 

1989 003472 000002 RT] 

1990 

1991 seeeeeeeees 

1992 ; 

ane sSTLSPV-- THIS ROUTINE SETS UP PRINTER INTERRUPT 

4 ; 

1995 : VECTOR AND PRIORITY CALLING SEQUENCE 

1996 ; STPCHYV 

oon : AT35E sLOCATION OF NEW INTERRUPT VECTOR 

1999 seerererene 

2000 

2001 003474 017637 000000 003514 STLSPV: MOV a(SP) ,STPPA+2 ;SET RETURN ADR AND VECTOR 
2002 003502 062716 000002 ADD #2,aSP 

2003 003506 013701 000626 MOV TPVTR,R1 

2004 003512 012721 000000 STPPA: MOV WO, (R1)+ 

2005 003516 013721 000630 MOV TPLVL,(RI)¢ 

2006 003522 000002 RT] SRETURN TO CALLER 


ee 


LOO ES TS RS tr 
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003524 
003526 
003532 
003534 
003536 
003540 
005542 
003544 


010146 
013701 
005301 
001376 
005300 
001372 
012601 
000002 


000672 


11) 
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;eraeerreeeee 


: DELAY-- 


e 


A COMMON ROUTINE TO DELAY PROCESSING 
A GIVEN NUMBER OF MSEC. 
CALLING SEQUENCE; 


MOV #5,R0 :RO CONTAINS THE NUMBER OF MSEC DELAY DESIRED 
DELAY 
THE DELAY IS EFFECTED BY THE EXECUTION OF THE LOOP; 
1$: DEC RI 
BNE 1$ 


SINCE THE EXECUTION TIMES OF THE PDP11 LINE DOES VARY FROM 
MACHINE TO MACHINE, THE VALUE AT SYMBOLIC LOCATION 

“TIMER'' MUST BE CHANGED TO THE APPROPRIATE VALUE AS SHOWN BELOW 
BEFORE STARTING THE DIAGNOSTIC. ‘’TIMER'' IS INITIALIZED 

FOR AN 11/05,11/10(=251). 


> MACHINE 05810 35840 15820 LSI&03 11/45 & 11/70 
; POLAR MOS CORE 
;LOOP: DEC R1 3.4 99 cud . 50 51 -90 
; BNE LOOP 2.5 1.76 2.6 .60 98 Fok 
: TIME= > PUSEC 2.75 4.9 f6t - OUSEC 1. 49USEC 
; SET TIMER 251 554 314 202 2127 1237 755 
s AXXMXXKKKX 
DLY: MOV R1,-(SP) SAVE RI 
1$: MOV TIMER ,Ri :MOV 1 MSEC LOOP CNi 70 R1 
2$: DEC R1 >DECREMENT COUNT 

BNE 2$ >BRANCH IF NOT ZERO 

DEC RO :DEC NO. OF MSEC DELAY 

BNE 1$ ;DELAY AGAIN IF NOT ZERO 

MOV (SP)+,R1 ;ALL DONE RESTORE R1 

RT] 


SEQ 0044 


2.05USEC 


ee ee 


———e ee 


eee ee oe 
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;eeaeeeeees 


:PFAIL--POWER FAIL ROUTINE 
SAVE ALL REGISTERS AND SET RESTART ADDRESS 
INTO LOCATION 24 


-RESTART=-POWER FAIL RECOVERY 


ee eeaessesssstess-sseeneneesneneuneeeeneneenes — 


SEQ 0045 


H 4& 
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2050 ; RESTORE ALL REGISTERS AND GO TO START 


~ 


SEG 0046 


np etme eae 


CZLACFO LA36 TERM (DL11 
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P11 


005546 
003550 


003634 


003640 
005646 


SS eee 


000137 


050200 
000200 


eee 
MACY11 30A(1052) 


& KL11) 
§:33 


000024 
003602 
003604 


003602 
000024 


001026 


053517 051105 


000024 


l 
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COMMON ROUTINES USED BY LA36 TESTS 


o 
,*eereneere 


PFAIL: 


SAVR6: 


RESTRI: 


1$: 


MOV 
JMP 


~ASCI2 
~EVEN 


RO,-(SP) 
R1,-(SP) 
R2,-(SP) 
R3,-(SP) 
R4,-(SP) 
R5,-(SP) 
24,-(SP) 
SP, SAVR6 


MRESTRT,24 


0 


SAVR6,SP 
(SP)+4+,24 
(SP)4+,R5 
(SP)4+,RG 
(SP)4*,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 
START 


>SAVE STACK POSITION 
;STORE RESTART ADDRESS 


sRESTORE STACK POINTER 
;RESTORE PFAIL ADDRESS 


<ACRLF>/POWER/<ACRLF > 


SEQ 004/ 


—- ~ Ee SO EE reeese we eee SS a sent te either 


ae teneesnsiscessestnesenssestssstensethenenns Se eS eee —— Gaueemee — 
- _ = _ 


CZLACFO LA36 TERM (DL11 
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Pil 


003650 


003724 


Se ee 9800 
NW NNO 

Oo Www 

SNNONNNN NSU 


11) 


R KL 
2:35 


000640 
000636 
000640 
000644 


000660 
000642 
900676 


V77TT7 
000001 


090642 
000660 





ee 
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;eeeenesers 


: FORWARD-=1H1S ROUTINE TRANSFERS THE 2 OR 4 ARGUMENTS 
FROM THE TEST ROUTINE. THEY ARE; 


; 1- ROUTINE NUMBER 

; 2- ADDRESS OF NEXT TEST 

: 3- ITERATION COUNT (1/0 TESTS ONLY) 

: 4- SCOPE ENTRY ADDRESS (1/0 TESTS ONLY) 


° 
,;eeeeereeree 


$FORWD: MOV NXTST,R5 ;ADDR OF NEXT TEST [0 RS 
MOV (R5)+,RTNNO :GET NUMBER OF NEXT TEST 
MOV (R5)+#,NXTST ;GET ADDR OF FOLLOWING TEST 
TSTB PRGID sCHECK IF 1/0 TEST 
BM) FORWDB ;SKIP THE FETCH OF ITER CNT AND SCOPE 
MOV (R5)+,1CTR ;GET ITERATION COUNT 
MOV (R5)+,SCOPTR ;GET SCOPE ENTRY POINT 

FORWDA: ty R5,CURTST ENTRY POINT TO TEST IN CUR TST 
R SEX 

FORWDB: MOV #-1,SCOPTR ;FORCE NO SCOPE 
MOV #1,1CTR ;FORCE INTERATION COUNT OF 1 
BR FORWDA 


SEQ 004% 


CZLACF 


CZLACF. 


11 


003726 
003734 


003774 


003776 
004002 
004006 
004010 
004014 
004016 
004024 
004030 
004032 
004040 
004044 
004052 
094060 
004066 


004070 
004072 


7 
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012737 


000002 


000000 
000000 


000600 
000004 
174652 
174640 
000001 


900664 


000602 
000612 


000614 


000616 
000616 


006620 


000004 


11) 


000664 
174654 


004070 


004072 


000622 
000626 
000626 
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;eeneeenere 


: AREAD-- 


° 
* 
* 
. 
e 
* 
e 


A ROUTINE WHICH, THROUGH THE FACILITY OF 
THE MAINTENANCE BIT, OUTPUTS 10 THE 
PRINTER BUFFER AND READS THE KEYBOARD 
STATUS DONE. IF THE DONE IS NOT SET 
WITHIN 6CO MSEC, THE CPU WILL HALT WITH 
THE LOCATION OF THE ERROR IN RO. PRESS 
CONTINUE TO CONTINUE WITH TESTS. 


-@erraeerrre 


SAREAD: MOV #600 ,BRCTR ;SET UP 600 MSEC DELAY 
BIS #4 ,a1PS :SET MAINTENANCE BIT 
CLR aTPB ;LOAD PRINTER BUFFER 
1$: TSTB aTKS :CHECK DONE BIT 
BM] 2$ ;BRANCH IF DONE 
MOV #1,RO ;ONE TO RO 
DELAY ;DELAY 1 MSEC. 
DEC BRCTR :600 MSEC OVER 
BNE 1$ :BRANCH IF NO 
EHAL I 
BR SAREAD > TRY AGAIN 
2$: RT] >RETURN TO TEST 


;eeeeereres 


:CONIT-- 


CONIT: 


CONSET: 


TPSS: 
TPBS: 


THIS ROUTINE SETS UP THE DEVICE ADDRESSES 
AND INTERRUPT VECTORS FOR THE CONSOLE 
TERMINAL, 


-aenereeereer 


CONSOLE KEYBOARD STATUS ADDR TO RO 


MOV CONADD ,RO 
KEYBOARD STATUS ADDRESS (777560) TO IKs 


MOV RO, TKS 


TST (RO) + : INCREMENT RO BY TwO 

MOV RO, TKB KEYBOARD DATA ADDR (777562) TO IKB 
TST (RO) + ; INCREMENT RO BY TWO 

MOV TPS,TPSS SAVE TPS OF LAST TERMINAL 

MOV RO,T s>PRINTER STATUS ADDR(777564) TO TPS 
TST (RO) + : INCREMENT RO BY TWO 


;SAVE TPB OF LAST TERMINAL 


MOV RO,7PB PRINTER DATA ADDR (777566) 10 TPB 


MOV CONVEC,,TKVTR KEYBOARD INTERRUPT VECTOR (60) 19 TkvIR 
MOV CONVEC,,TPVIR 

ADD #4, 1PVIR >PRINTER INTERRUPT VECTOR (64) TO TPVIR 
RTS PC 

-WORD 0 LAST TERM STATUS REG ADR 

-WORD 0 sLAST TERM BUFFER REG ADR 


SEQ 0049 


LS sees 


CC 


ee 





eS Sh ts set se nS 
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2154 sterererere 
2155 ; 
2156 ;BINARY TO ASCII CONVERSION (1 TO 5 ASCII CHARACTERS) 
2157 :;CALLING SEQUENCE 
2158 ; MOV ADDRESS OF LOC. TO STORE FIRST ASCI1 CHAR. INTO RO 
2159 ; MOV BINARY NUMBER 70 BE CONVERTED INTO R1 
2160 : MOV NUMBER TO BE CONVERTED AS A POWER OF TEN INTO R2 
2161 BIOASC 
2162 : 
2163 seeereterer 
2164 
2165 004074 010237 004160 $BTASC: MOV R2,CNVCTR ;SAVE TEN POWER 
2166 004100 006302 ASL R2 R22 
2167 004102 062702 004166 ADD #ADTENP,R2 ;CALCULATE ADDRESS OF 
2168 ; STARTING TEN POWER 
2169 004106 014237 004164 1$: MOV -(R2), TENPWR ;POWER OF TEN VALUE TO TEN PwR 
2170 004112 005037 004162 CLR DIGIT ;CLEAR CURRENT DIGIT 
2171 004116 163701 004164 2$: SUB TENPWR,R1 ; SUBTRACT TEN POWER FROM BINARY VALUE 
2172 004122 103403 ‘ BCS 3$ ;BRANCH IF END 
2175 004124 005237 004162 INC DIGIT 
2174 004130 000772 BR 2$ 
2175 004132 063701 004164 3$: ADD TENPWR,R1 ;RESTORE SUBTRACTED VALUE 
2176 004136 062737 000060 004162 ADD #60,DIGIT ;CONVERT (DIGIT) TO ASCII 
2177 004144 113720 004162 MOVB DIGIT, (RO)+ ;PUT ASCII CHAR INTO USER BUFFER 
2178 004150 005337 004160 DEC CNVCTR ;FINISHED ALL CHARS. CALLED FOR 
2179 004154 001354 BNE 1$ ;BRANCH IF NOT FINISHED 
2180 004156 000002 RT] >YES, EXIT 
2181 004160 000000 CNVCTR: .WORD 0 ; CONVERSION CHARACTER COUNT 
2182 004162 000000 DIGIT:  .WORD 0 ;CONVERTED CHARACTER 
2183 004164 000000 TENPWR: .WORD 0 ;CURRENT TEN POWER 
2184 004166 000001 (90012 000144 ADTENP: .WORD 1.,10.,100.,1000.,10000. 
2185 004174 001750 023420 
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lent eelieeieetieiot = ee 
00000 C2 OD 

NEAR ANSSSRSS 


MN— 
© OO 


oo 


NNRRVVNYNNNWN 
©OwoOc 


mr 


MMMM MAT 
MMMM rrr 


P11 


004200 


004400 


004402 
004406 
004410 


004737 


000002 


105777 
100375 
000002 


& KL 
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003776 
000656 


000656 
000632 
174436 


000670 
004002 


000666 
000010 
174322 
174314 
174310 


000700 


000011 
000377 


000703 
000702 


174210 


11) 


000666 
000670 


000670 


000700 


000004 


000702 
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+ RAK AKA 
"READ-- A COMMON ROUTINE WHICH CHECKS THE KEYBOARD 
: DONE FLAG & SETS A FLAG INDICATING CHAR PARITY 
E AXKKKKKKA 
SREAD: JSR PC,CONIT >RESET CONSOLE ADR AND VECTORS 
TST DLCNT sCHECK IF MULTI DL11°S AVAILABLE 
BEQ SREADC ;NONE, WAIT FOR CONSOLE INPUT 
1$: MOV DLCNT,COUNTS SSET DL11 COUNT 
MOV FSTDL,XCSR ADDRESS OF FIRST an INTO XCSR 
2$: TSTB @XCSR >TEST IF ANY INPU 
BPL 3$ ;CONTINUE IF NO INPUT 
MOV XCSR,RO :SET THIS DL11 AS CONSOLE 
JSR PC ,CONSET 
BR READ1 >READ CHAR AND RETURN 
3$: DEC COUNTS :DECREMENT DL11 COUNT 
BEQ $ > TEST CONSOLE WHEN DONE DLI1'S 
ADD #10,XCSR >NEXT DL11 ADDRESS 
BR > CONT INUE 
4$: TSTB aTKS :CHECK CONSOLE 
BPL 1$ ;WAIT, NO INPUT 
SREADC: TSTB aTKS >CHECK KEYBOARD DONE FLAG 
BPL SREADC :BRANCH IF NOT SET 
READ1: MOVB @TKB, TEMPCH SAVE CHARACTER 
MOVB TEMPCH,PCHAR SAVE CODE WITH PARITY BIT 
BIC #177400,PCHAR ;MASK UNWANTED BITS 
MOVB TEMPCH PARITY+1 ;SAVE CHAR WITH PARITY BIT 
BIC #177600, TEMPCH ;:MAKE IT 7 BIT ASCI] 
CMP TEMPCH, #4 :DISREGARD EOT 
BEQ SREAD 
MOV #11,R0 :SET SHIFT COUNT 
BIC #377, PARITY >CLEAR PARITY FLAG 
1$ DEC RO ;DECREMENT SHIFT COUNT 
BEQ 2$ EXIT IF DONE 
ASLB PARITY+1 : SHIFT CODE 
BCC 1$ >CONTINUE IF BIT WAS ZERO 
COMB PARITY CHANGE PARITY FLAG IF BIT WAS ONE 
BR 1$ ; CONTINUE 
2$: RT] >SET, RET. TO CALLER 
s MXXXKAKKKX 
sPRINT=- A COMMON ROUTINE TO CHECK THE PRINTER READY FLAG 
s XXMKKMKKKK 
SPRNT: ITSTB aTPS >CHECK PRINTER READY FLAG 
BPL SPRNT >BRANCH IF NOT SET 
RT] SET, RETURN 


SEQ 0051 


a _eee———— 


CZL 


004412 


904702 


ere: LA56 TERM (DL11 
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001011 


& KL 
> TF 


000602 
000004 
174260 


000002 


000656 
005122 


000710 
000636 
104011 
174132 
000002 
174116 
177600 
000700 
000636 


005226 
000700 


000636 
000700 
000636 
000700 
000636 
000700 
000636 
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000712 
000712 
000712 
174240 


000666 
000670 
000020 
001772 


000670 
000700 
000700 
000003 


000024 


000177 
000017 


000021 
000662 
000022 
000662 
000021 
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COMMON ROUTINES USED BY LA36 TESTS 


;eeaeterete 


:PRINTC-~SENDS A CHARACTER AT A TIME FIRST TO THE 


CONS 


NSOLE DL11 THEN TO ALL MULTIPLE DL11S IF 
SR BIT 13 18 = 0. 
READY BIT ig NOT SET, 


1f THE REFERENCED PRINTER 
THE CHARACTER WILL NOT BE 


SENT TO THAT PRINTER. ENTER WITH CHARACTER IN RO. 


CALL: 


€ 
;eeeteeee 


SPRIC: 


1$: 


2$: 
3$: 


4$: 


5$: 


6$: 


7$: 


8$: 


9$: 


PRINTC 
CONADD, TEMP ;SET CONSOLE ADR 
#4, TEMP 
aTeMP 
1$ :WAIT FOR CONSOLE READY 
#2, TEMP :SET ADR 
RO,aTEMP ;LOAD CONSOLE PRINTER BUFFER 
#B1113,aSR sCHECK Sw 13 
2$ ;SEND ALL TERMS IF SW13 DOWN 
DLCNT :CHECK IF MULTIPLE DL11°S 
+8 :CHECK FOR INPUT IF THERE 
DLCNT,COUNT3 ;PUT NO. DL11°S INTO COUNT3 
FSTDL,XCSR ;ADDR OF FIRST DL INTO XCSR 
en :CHECK FOR INPUT? 
RTNNO, #20 sPRINTING TEST? 
5$ :BRANCH IF NOT 
WTTYCTL,WAITF |= :KEYBOARD CONTROL? 
13$ ;SKIP INPUT CHECK IF NOT 
@XxcsR -TEST IF ANY INPUT 
13$ ;CONTINUE IF NO INPUT 
#2,XCSR ;SET BUFFER ADDRESS 
axCSR, TEMPCH 
#177600, TEMPCH 
TEMPCH, #3 sCHECK IF CONTROL-C 
6$ ;CONTINUE IF NOT 
RTNNO,#24 sCHECK IF TEST 24 
ore ;CONTINUE IF NOT CONTROL-C 
TEMPCH,#177 :CHECK IF RUBOUT 
9% | sYES, CHECK TEST NUMBER 
RTNNO,#17 EST 177 
7$ BRANCH 1F NOT 
TEMPCH,R3 >SAVE CHARACTER 

: CONT INUE 
RTNNO, #21 : TEST 21? 
8$ :BRANCH IF NOT 
TEMPCH, REPT > SAVE CHARACTER 
12$ : CONT I NUE 
RTNNO, #22 :TEST 22? 
14$ :CONTINUE JF NOT 
TEMPCH,REPT SAVE CHARACTER 
12% : CONTINUE 
RTNNO, #21 :CHECK IF TEST 21 
10% sNO, CHECK JF TEST 22 


SEQ 0052 


| 
| 


ere mene: eee me ee LL 


- wee eee ee we 


a 


NT SS eessshssestesssssnssssnssssnsnstesssssusstesmnsesmesmmesenensresereeseserees- —— — 
——- — 2 
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CZLACF P11 13-JUN-79 15:33 COMMON ROUTINES USED BY LA36 TESTS SEQ 0053 | 
ee Se son SESS 
V #50.,R ;DELAY FOR HALF DUPLEX | 
2295 004712 10401 DELAY 
2296 004714 104007 TYPEM YES, TEST 21 
2297 004716 014772 ECOEND :PRINT TERMINATION MESSAGE 
2298 004720 104005 CHAIN “CHAIN TO NEXT TEST 
2299 604722 000137 012176 JMP EO21A ;REPEAT TEST IF LOOP ON TEST Sw SET 
2300 004726 023727 000636 000022 10%: CMP RTNNO, #22 “CHECK IF TEST 22 
2301 004734 001011 BNE 11$ “NO, CHECK IF TEST 26 
23502 004736 022626 POPSP2 sADJUST STACK 
2303 004740 012700 000036 MOV #30. .RO “DELAY FOR HALF DUPLEX 
2304 004744 104010 DELAY 
23505 004746 104007 TYPEM ;YES, PRINT TERMINATION MESSAGE 
2306 004750 014772 ECOEND 
2307 004752 104005 CHAIN :CHAIN TO NEXT TEST 
23508 004754 000137 012234 JMP EO22A ;REPEAT TEST IF LOOP ON TEST Sw SET 
2309 004760 023727 000636 000024 118: CMP RTNNO, #26 “TEST 26? 
2310 004766 001133 BNE 223 sWAIT FOR NEXT TEST IF NOT TEST 24 
2311 004770 022626 POPSP2 sRESET STACK 
2312 004772 000137 013156 JMP TERM “TERMINATE TEST 
2313 004776 012700 000036 12$: MOV #30. RO “DELAY FOR HALF DUPLEX 
2314 005002 104010 DELAY 
2315 005004 013700 000700 MOV TEMPCH,RO >SET NEW CHARACTER 
2316 005010 000403 BR 14$ : CONTINUE 
2317 005012 062737 000002 000670 13$: ADD #2,XCSR :SET STATUS ADDRESS IN XCSR 
2318 005020 062737 000002 000670 14$: ADD #2-XCSR 
2319 005026 013737 000602 000712 MOV CONADD, TEMP ;CHECK IF CONSOLE TERMINAL 
2320 005034 062737 000004 000712 ADD #4, TEMP 1S THIS DL 
2321 005042 023737 000712 000670 CMP TEMP, XCSR 
2322 005050 001420 BEQ 7$ 
235253 005052 105777 173612 15$: TSTB aXxcsR TEST PRINTER READY 
2324 005056 100375 BPL 15$ “WAIT FOR READY 
2325 005060 062737 000002 000670 ADD #2.XCSR >SET XCSR TO PRINTER BUFFER 
2326 005066 010077 173576 MOV RO.aXxCSR “LOAD CHARACTER INTO BUFFER 
2327 005072 005337 000666 168: REC COUNTS :DECREASE COUNT OF DL11'S 
2328 005076 001411 BEQ 8S “ALL DONE EXIT 
2329 00° 100 062737 000002 000670 ADD #2.XCSR :SET XCSR TO NEXT DL11 PRINTER STATUS 
2330 005106 000137 004504 JMP :GO TEST NEXT DL11 READY FLAG 
23531 005112 062737 000002 000670 1738: ADD #2,XCSR :SET XCSR TO PRINTER BUFFER 
2332 005120 000764 BR 6$ [DO NOT LOAD BUFFER 
2333 005122 005737 000710 18$: «TST INCHK WANT INPUT CHECK? 
2334 005126 001111 BNE 6$ NO, BRANCH 
2335 005130 023727 000636 000020 CMP RTNNO, #20 “PRINTING TEST? 
2336 005136 002004 BGE 19% “BRANCH IF NOT 
2337 005140 022787 104011 001772 CMP WTTYCTL WAITF © :KEYBOARD CONTROL? 
2338 005146 001101 BNE 26$ >SKIP INPUT CHECK IF NOT 
2339 005150 105777 173426 19$:  1STB —— ACONADD “TEST IF ANY INPUT 
2340 005154 100076 BPL 26$ “BRANCH IF NONE 
2341 005156 013737 000602 000712 MOV CONADD, TEMP “SET ADR | 
2342 005164 062737 000002 000712 ADD 2, TEMP | 
2343 005172 117737 173514 000700 MOVB = aTEMP,, TEMPCH 
2344 005200 042737 177600 000700 BIC #177600, TEMPCH =MASK UNWANTED BITS 
2345 005206 023727 000700 000003 CMP TEMPCH, #3 “CHARACTER = CONTROL-C? 
2346 005214 001013 BNE 21$ CONTINUE IF NOT | 
2347 005216 023727 900636 v00024 CMP RINNO, #24 “TEST 24? 
2348 005224 001007 BNE 21$ “CONTINUE IF NOT 
| 
} 
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005226 


005552 


012700 
0 


000002 


000036 


015030 
000700 


000001 
002154 
000036 


000636 


000700 
C00636 


900700 
000636 


000700 


000177 


000634 


000017 


000021 


000662 
000022 


000662 


sss —— 


C 
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ee estes 
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COMMON ROUTINES USED BY LA36 TESTS 


20$: 


21%: 


22%: 
238%: 


243: 


25$: 


263: 


MOV 
Ay 


#30.,R0 


E024B 
TEMPCH, #177 
25% 

9$ 
#1,CNTLSW 
TTY1B 


RO,-(SP) 
#30.,R0 


(SP)+,R0 
RTNNO,#17 
4$ 


2 
TEMPCH,R3 

RTNNO #21 
5$ 


2 
TEMPCH,REPT 
RTNNO ,#22 
26% 


6 
TEMPCH,REPT 


;DELAY FOR HALF DUPLEX 


; SEND CR-LF 
;RESET STACK 
;RETURN TO TEST 
;CHECK IF RUBOUT 
>BRANCH IF NO 


;CLEAR LOOP AND SEQUENCE BITS 
;GO WAIT FOR NEXT TEST 

: SAVE RO 

;DELAY FOR HALF DUPLEX 


sRESTORE RO 

sCHECK IF TEST 17 

;BRANCH IF NOT TEST 17 
:STORE INPUTTED CHARACTER 
;CHECK IF TEST 21 

:;BRANCH IF NOT TEST 21 
:;STORE INPUTTED CHARACTER 
sCHECK IF TEST 22 

;BRANCH IF NOT TEST 22 
:STORE INPUTTED CHARACTER 
;RETURN TO TEST 


SEQ 0054 


CZLACFO (ASO TERM (DL11 


CZLACF P11 
2574 


13-JUN-79 1 


4 
5: 


KL 
33 


11) 


RR SS a stetssnsassesesseseisssseussnensassessnsieismnesmesmeesssteeemenmene 
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-—_— 


SEQ 0055 


ee ee ee 


ee 





CZLACFO LA36 TERM (DL11 
13-JUN-79 1 


CZLACF .P11 


005354 


005402 


005404 


005406 


005436 


000040 


000774 


000041 
005440 
000012 
095424 
012737 
005777 
104005 
000774 
104001 
000774 


SS SSssssssssessssssssnstesnsessesnsnssesssinsseneeeeneree-ere 


R KL11) 
5:33 


005402 000004 
173214 


005434 000004 
173164 


MACY]! 30A(1052) 
1/0 LOGIC TESTS 


- SBTIL 


° 
; errr eeeee 


E 
15-JUN-79 


1/0 LOGIC TESTS 


5 
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ONLY THE CONSOLE TERMINAL IS TESTED. 

THE CPU WILL EITHER HALT IF SR 

AND AWAIT FUTHER INSTRUCTIONS OR CONTINUE 
; AND EXECUTE THE PRINTER TESTS CONTINOUSLY 

71f AN 1/0 TEST FAILS, THE CPU WILL HALT AT ERRHLT 


; UPON + oe me 
:B1T8 IS = 


:W1ITH THE ADDRESS OF THE ERROR IN RO (LOC 777700). 


PRESSING 


>THE CONTINUE SWITCH WILL CAUSE THE 1/0 TEST TO 


>CONTINUE WITH THE NEXT TEST. 
sWERE SET, 
PRESSED, 


HOWEVER IF SWITCH 14 
OR IS SET BEFORE THE CONTINUE SWITCH IS 


THE FAILED TEST WILL LOOP ON ITSELF 
¢ WITHOUT FURTHER HALTS 


: -eeeeceegee 


TEST #40--TESTS THE ABILITY TO REFERENCE THE 


;AT0-- 


,eeerrereee 


ATOX: 


2$: 
3$: 


, *eerererre 
;AT1=-TEST #41--TESTS THE ABILITY TO REFERENCE THE 
RECEIVER BUFFER (TKB) WITHOUT TRAPPING. 


;xeaeeeeree 


ATl: 


3$: 


#3% MACHER 
aTKS 


1$ 
2% 


#3% ,MACHER 
aTKE 


1$ 
2% 


RECEIVER STATUS WORD (TKS) WITHOUT TRAPPING. 


> TEST NUMBER 

sNEXT TEST 

: ITERATION COUNT 

> SCOPE ENTRY 

;SET UP MACHINE ERROR TRAP 
REFERENCE RECEIVER STATUS WORD 
:CHAIN TO NEXT TEST 

;REPEAT TEST 

sERROR TRAPPED WHEN REFERENCING 
sRECEIVER STATUS WORD (TKS) 


“TEST NUMBER 

sNEXT TEST 

: ITERATION COUNT 

: SCOPE ENTRY 

SET UP MACHINE ERROR TRAP 
sREFERENCE RECEIVER BUFFER 
>CHAIN TO NEXT TEST 
;REPEAT TEST 

; TRAPPED WHEN REFERENCING 
>RECEIVER SUFFER (TKB) 


SEQ 0056 


= ss eseeestseieeenenen ne 


CZLACFO LAS6 TERM (DL11 


CZLACF .P i3-JUN-79 1 


Pil 


005440 
005442 
005444 
005446 
005450 
005456 
005462 
005464 
005466 
005470 


005472 
005474 
005476 
005500 
005502 
005510 
005514 
005516 
005520 
005522 


LS 


000042 


000774 


000043 
005524 


000774 





L11) 


RK 
5:33 


005466 000004 
173134 


005520 000004 
173104 


SS SSSsssssessteserssesssestnnsessenntenensnrsee nee 





eee 
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, errr rerere 
;AT2--TEST #42--TESTS THE ABILITY TO REFERENCE THE 
TRANSMITTER STATUS WORD (TPS) WITHOUT TRAPPING. 


‘eeeeeneees 


AT2: 42 > TEST NUMBER 

AT3 ;NEXT TEST 

10. > 1 TERATION COUNT 

1$ ; SCOPE ENTRY 

MOV #3%,MACHER ;SET UP MACHINE ERROR TRAP 
1$: TST aTPS >REFERENCE TRANSMITTER STATUS 
2$: CHAIN ;CHAIN TO NEXT TEST 

BR 1$ ;REPEAT TEST 
3$: ERROR ; TRAPPED WHEN REFERENCING 

BR 2$ ; TRANSMITTER STATUS WORD 


,eeeaeereeeee 
sAT3-- TEST #43--TESTS THE ABILITY TO REFERENCE THE 
; TRANSMITTER BUFFER (TPB) WITHOUT TRAPPING. 


; errr ereeee 


AT3: 43 ; TEST NUMBER 
ATG ;NEXT TEST 
10. : 1TERATION COUNT 
1$ ; SCOPE ENTRY 
MOV #3% MACHER ;SET UP ERROR TRAP 
1$: TST aTPB >REFERENCE TRANSMITTER BUFFER 
2$: CHAIN ; CHAIN TO NEXT TEST 
BR 1$ >REPEAT TEST 
3$: ERROR ; TRAPPED WHEN REFERENCING 
BR 2% : TRANSMITTER BUFFER. 


SEQ 0057 


a eel ca se aly 


- ———— = ee eee Oe ae oo 


ert? LA56 TERM (DL11 
11 15-JUN-79 1 


CZ7LACF 


005524 


005612 


005614 
005616 
005620 
005622 
005624 
005630 
005634 
005636 
005644 
005650 
005652 
005654 
005662 
005664 
005666 
005670 


000044 
005614 


000755 


000045 
005672 
000012 
005636 
012746 
012746 
000002 
052777 
105777 
001775 
000005 
032777 
001401 
104001 
104005 
000762 


R Ki 
5:33 


000340 
005546 


000100 
000100 


000100 
000100 


000340 
005636 


000100 
172746 


000100 


11) 


173036 
173030 


173014 
173006 


172746 


172730 


MACY11 30A(1052) 
1/0 LOGIC TESTS 


:eeeeeerene 
TEST #44--TESTS THE ABILITY " SET AND CLEAR THe 
RECEIVER INTERRUPT ENABLE BIT 


, teeererene 


;Al4-- 


AT4: 


4$: 
5$: 


-eeeereerer 
TEST #45--CHECKS THAT THE RECEIVER INTERRUPT 
ENABLE BIT CAN BE CLEARED WITH RESET INSTRUCTION. 


*“@e#eeaeeere? 


sAT5-< 


ATS: 


2$: 





G 
15-JUN-79 


#PRTY7,=(SP) 
#1$,-(SP) 


#B1T6,aTKS 
WBIT6,aTKS 
3$ 


5$ 
ABIT6,aTKS 
#B11T6,aTKS 
5$ 


1$ 


WPRIY7,=-(SP) 
#1$,-(SP) 


#BIT6,aTKS 
aTPs 

3$ 
WBIT6O,aTKS 
2% 


1$ 





5 
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; TEST NUMBER 
;NEXT TEST 

> LTERATION COUNT 
; SCOPE ENTRY 
>SET PRIORITY 7 


;SET INTERRUPT ENABLE BIT 
:CHECK IF BIT IS SET 
;BRANCH IF SET 

;NOT SET, 
: CHAIN TO NEXT TEST 

;CLEAR INTERRUPT ENABLE BIT 
:CHECK IF BIT IS CLEARED 
:BRANCH IF CLEARED 

;NOT CLEARED, ERROR 

:CHAIN TO NEXT TEST 

:DO0 TEST AGAIN 


ERROR 


> TEST NUMBER 

sNEXT TEST 

> ITERATION COUNT 
:SCOPE ENTRY 

:SET PRIORITY TO 7 


;SET INTERRUPT ENABLE BIT 


:BE SURE PRINTER IS DONE WITH DL11S1 MESSAGE 


>BEFORE ALLOWING FOLLOWING RESET. 


;RESET 


S TEST INTERRUPT ENABLE BIT 
;BRANCH IF CLEARED 

>STILL SET, ERROR 

>CHAIN TO NEXT ROUTINE 
;REPEAT TEST 


SEQ 0055 


etna er ee eee 


RS Ree cee 


eterna ae 





H § 
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CZLACF P11 15-JUN-79 15:33 1/0 LOGIC TESTS Sf O 
2498 :eeeererere 
2499 sATO-- TEST#46--TESTS THE ABILITY TO SET AND CLEAR 
2500 : TRANSMITTER INTERRUPT ENABLE BIT. 
2501 :eeeeeenene 
2502 
2503 005672 000046 Al6: 46 ; TEST NUMBER 
2504 005674 005762 A17 >NEXT TEST 
2505 005676 000012 10. > ITERATION COUNT 
2506 005700 005714 1$ ; SCOPE ENTRY 
2507 005702 012746 000340 MOV WPRIY7,-(SP) :SET PRIORITY 10 7 
2508. 005706 012746 005714 MOV #1$,-(SP) 
2509 005712 000002 RT] 
2510 005714 052777 000100 172674 18 BIS #B1i6,aTPS ;SET INTERRUPT ENABLE BIT 
2511 005722 032777 000100 172666 BIT #BIT6,aTPS ;CHECK THAT BIT IS SET 
2512 005730 001002 BNE 2$ ;BRANCH IF SET 
25135 005732 104001 ERROR :NOT SET, ERROR 
2514 005734 000410 BR 3$ ;CHAIN TO NEXT TEST 
2515 005736 042777 000100 172652 2: BIC #BIT6,aTPS >CLEAR INTERRUPT ENABLE BI1 
2516 005744 032777 000100 172644 BIT #BIT6,aTPS ;CHECK IF BIT IS CLEARED 
2517 005752 001401 BEQ 3$ ;BRANCH IF CLEARED 
2518 005754 104001 ERROR ;NOT CLEARED, ERROR 
2519 005756 104005 3$: CHAIN :CHAIN TO NEXT TEST 
$250 005760 000755 BR 1$ :DO0 AGAIN 
2522 seeeeeeeret 
2525 sAT7-- TEST #47--TESTS THE ABILITY TO LEAR TRANSMITTER 
2524 : INTERRUPT ENABLE BIT WITH RESE! INSTRUCTION. 
2525 ,eeeeereeee 
2526 
2527 005762 000047 AT?7: 47 : TEST NUMBER 
2528 005764 006032 AT10 sNEXT TEST 
2529 005766 000012 10. > ITERATION COUNT 
2530 005770 006004 1$ ; SCOPE ENTRY 
2531 005772 012746 000340 MOV #PRTY7,-(SP) ;SET PRIORIJiY TO 7 
2532 005776 012746 006004 MOV #1$,-(SP) 
25353 006002 000002 RT] 
2534 006004 052777 000100 172604 1$ BIS WBIT6.aTPS ;SET INTERRUPT BIT 
2535 006012 000005 RESET ;RESET 
2536 006014 032777 000100 172574 BIT #BIT6,aTPS :CHECK IF BIT IS CLEARED 
2537 006022 001401 BEQ 2% >BRANCH IF CLEARED 
2538 006024 104001 ERROR sERROR, RESET DID NOT CLEAR BI? 
2539 006026 104005 2$: CHAIN ;CHAIN TO NEXT ROUTINE 
2540 006030 000765 BR 1$ sREPEAT TEST 


CZLACFO LA3S6 TERM (DL11 
13-JUN-79 1 


a 


CZLACF P11 


MMM RRM NN nono 
MAPA 
HPMANAMAANUGA 


006032 
006034 


006066 


006070 
006072 
006074 
006076 
006100 
006104 
006106 
006110 
006114 
006120 
006122 
006124 
006126 


000050 


104005 
000765 


000051 
006130 
000012 
006100 
012700 
104010 
000005 
005077 
105777 
100001 
104001 
104005 
000764 


SC tess ses 


& KL1 
5:33 


001000 


172536 


000226 


172504 
172476 


172644 


MACY11 30A(1052) 
1/0 LOGIC TESTS 


:AT10=- TEST #50--CHECKS THAT RESET SETS THE TRANSMITTER 


AT10: 


1$: 


2$: 


;eerrereree 
pATI1=~ TEST #51--TESTS THAT THE TRANSMITTER READY RESETS 
BY LOADING THE TRANSMITTER BUFFER. 


-eeeeeerene 


ATE Us 


2$: 


] 
13-JUN-79 


#LS111,a5SR 
2$ 


aTPS 
2$ 


1$ 


#226,R0 


aTPB 
aTPS 
2$ 


1$ 


As Sete ——— —— . 


5 
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READY BIT AND THAT THE READY BIT CAN BE READ RELIABLY. 


> TEST NUMBER 

sNEXT TEST 

> 1TERATION COUNT 

; SCOPE ENTRY 

;SKIP TEST IF AN LSI-11 


>RESET 
sCHECK TRANSMIT READY BIT 


;BRANCH IF SET 

ERROR, RESET DID NOT SET READY BIT 
>CHAIN TO NEXT TEST 

;DO AGAIN 


: TEST NUMBER 
:NEXT TEST 

: ITERATION COUNT 
> SCOPE ENTRY 


;DELAY 150 MSEC. 
>RESET 


;LOAD TRANSMITTER BUFFER 
>CHECK TRANSMIT READY SIT 
sBRANCH IF CLEARED 

:NOT CLEARED, ERROR 

> CHAIN TO NEXT TEST 
;REPEAT TEST 


SEQ 0060 


me ee ee er ee ee es ee ae wm we em em te 


CZLACFO LA356 TERM (DL11 
i5-JUN-79 1 





CZLACF P11 


006130 


006202 


006204 


006262 


000052 
006204 
000012 
006144 
104004 
006200 
000005 
005077 
005046 
012746 
000002 
052777 
000240 
104001 
104005 
000762 
022626 
000774 


000035 
006264 


000771 


R KL 
5:33 


172444 
006162 
000190 


000630 
006232 


172360 
000100 


172544 


11) 


172426 


172552 


; teeter eeee 


;AT12=~ TEST #52--CHECKS THAT THE TRANSMIT READY BIT CAN 


CANISE AN INTERRUPT 


i eeeeeeeeee 


ATl2: 


1$: 


;eeeeeaeeee 


;AT13~~ TEST#535--TESTS THAT THE 


AT13: 


2$: 


4$: 


J 
13-JUN-79 


aTPSs 
- (SP) 


#2$,-(SP) 
#BIT6,aTPS 


1$ 
3$ 


-—— SS entnsnnenneeeerrnnnneeeeeeer ere 


MACY11 50A(1052) 
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7 TEST NUMBER 
sNEXT TEST 
> ITERATION COUNT 


; SCOPE ENTRY 
‘7o 7 TRANSMITTER INTERRUPT VECTOR 


;SEE CHAINY COMMENT 
;DISABLE TRANSMIT INTERRUPT 


:SET PRIORITY TO ZERO 


;ENABLE TRANSMIT INTERRUPT 


; TRANSMIT READY $e NOT CAUSE INTERRUPT 
:CHAIN TO NEXT TES 
;REPEAT TEST 


> INTERRUPT OCCURRED, CLEAN STACK 
>CHAIN TO NEXT TEST 


TRANSMIT READY DOES NOT CAUSE AN 


INTERRUPT WHEN THE PROCESSOR IS AT THE SAME LEVEL 


. *@earrenerere 


35 
A114 
10. 

1$ 
STPCHYV 
4% 


MOV 
MOV 
RT] 
CLR 
BIS 
NOP 
CLR 


TPLVL ,-(SP) 
#2%$,-(SP) 


aTPs 


#BIT6,aTPS 


aTPS 
1$ 


$$ 


; TEST NUMBER 

sNEXT TEST 

; ITERATION COUNT 

:SCOPE ENTRY 

;SET UP TRANSMIT INTERRUPT 

sVECTOR 10 4$ 

;SET PROCESSOR TO SAME LEVEL AS XMITIER 


DISABLE TRANSMITTER INTERRUPTS 
>ENABLE TRANSMITTER INTERRUPTS 


:0K, NO INTERRUPT OCCURRED 
:CHAIN TO NEXT TEST 

:REPEAT TEST 

; INTERRUPT OCCURRED. ERROR, CLEAN 
:UP STACK 

;CHAIN TO NEXT TEST 


SEQ 006! 


SS 66 ES RE ee aes aE eneeEe ene ee, 


49 


———aeD 


CZ 


CZLACF 
LA 


0 LA36 
p 


CF .PI11 


006264 


006344 
006546 


TERM (DL11 & KL 
13-JUN-79 15:33 


000054 


000754 


172312 
000630 
000040 
006322 


000100 


172252 


11) 


a ee — —— 


172266 
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-*eeneneeee 

sAT14~= TEST#S4--TESTS THAT THE TRANSMIT READY DOES CAUSE AN 
; INTERRUPT WHEN THE PROCESSOR IS AT A PRIORITY LEVEL 
: ONE LOWER THAN THE TRANSMIT INTERRUPT REQUEST LEVEL 


,;eerteneeeee 


AT14: 54 ; TEST NUMBER 
AT15 sNWEXT TEST 
10. ST TERATION COUNT 
1$ :SCOPE ENTRY 
STPCHV :SET UP TRANSMIT INTERRUPT 
3$ ;VECTOR TO 3$ 
1$ CLR aTPs ;DISABLE TRANSMIT INTERRUPTS 
MOV TPLVL,-(SP) ;SET PROCESSOR PRIORITY ONE 
SUB #40,(SP) ;LEVEL LOWER THAN TRANSMITTER 
ari #2$,-(SP) 
2$ ab #BIT6,aTPS ;ENABLE TRANSMITTER INTERRUPTS 
N 
ERROR :NO INTERRUPT, ERROR 
BR 4$ ;CHAIN TO NEXT TEST 
3$: POPSP2 ; INTERRUPT OCCURED, OK, CLEAN STACK 
4$: CLR aTPSs ;DISABLE TRANSMITTER INTERRUPTS 
CHAIN >CHAIN TO NEXT TEST 
BR 1$ sREPEAT TEST 


SEQ 0062 


CZLACFO LAS6 TERM (DL11 & 
CZLACF .P1 5 


1 


006350 
006352 
006354 


006446 


006450 


006512 
006514 


13-JUN- 


000055 


000761 


000056 


00076i 


79 1 


OE LO Nt CE CES 


KL 
733 


172226 
006400 
000100 


172200 


006442 
006436 


001000 
000226 


172104 


11) 


172210 


172176 


172226 


MACY11 30A(1052) 
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a ee ee 


;eeetereeee 
;AT15== TEST#55--TESTS THAT THE TRANSMIT READY DOES NOT 
RE INTERRUPT Saas AN RTi WHEN THE READY BIT HAS 
NOT BEEN RESET 


,;eereereres 


A115: 


1$: 


,;eeeeereeree 


sATI6--TEST#56--CHECKS THAT RESET CLEARS THE RECEIVER DONE BIT 


,;eeetreeerer 


A116: 


1$: 


2$: 


3$: 


L 
13-JUN-79 


aTPS 
- (SP) 


#2$,-(SP) 
#B116,aTPS 


aTPS 


#6$,aTPVIR 
#5%,aSP 


3% 


#LS111,aSR 
3% 
#226,R0 


aTKs 
3$ 


I$ 
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; TEST NUMBER 
;NEXT TEST 
: ITERATION COUNT 


> SCOPE ENTRY 
1 _— INTERRUPT VECTOR 


0 
DISABLE TRANSMITTER INTERRUPTS 
;SET PROCESSOR PRIORITY TO ZERO 


;ENABLE TRANSMITTER INTERRUPTS 


sERROR1, TRANSMITTER FAILED TO INTERRUPT 
:DISABLE TRANSMITTER INTERRUPTS 

>CHAIN TO NEXT TEST 

;REPEAT TEST 

; INTERRUPT OCCURRED, CHANGE INTERRUPT 
;VECTOR TO 6$ AND RETURN TO 5$ 

:RETURN FROM INTERRUPT 


;CHAIN TO NEXT TEST 
;ERROR2, 
AFTER RTI] WITH READY BIT LEFT ON. 
>CLEAN STACK, CHAIN TO NEXT TEST. 


TRANSMITTER REINTERRUPTED 


> TEST NUMBER 

sNEXT TEST 

> 1TERATION COUNT 

> SCOPE ENTRY 

:SKIP TEST IF LSi-11 


:DELAY 150 MSEC. 
avrg RECEIVER 


sRESE 

: TEST DONE BIT 

;BRANCH IF DONE IS CLEARED 
:NOT CLEARED, ERROR 

sCHAIN TO NEXT TEST 
sREPEAT TEST 


SEQ 0065 | 


fais id 


eee ee en 


CZLACFO LAS6 TERM (DL11 & KL 
135-JUN-79 15:33 


CZLACF P11 


oo 


meron 
a be be be 
OONAULSWN—-OD® 


MMIM MPP ProKr Prony) 


MMMM ron ron 
mrr 
OVE wn—oO 


MMPI MMM PEN Pon nofnononony 
SN NN SN NNN 
La 
w 


MPR 
“~o S OS S 
PEP sf 

Ww & wih — 


Nm 
~ 
> 
o 


006516 


006564 


006566 


006656 


000057 


000760 


000060 


000751 


001000 
000226 


172042 
172034 


001000 
000226 


171764 
006636 
000100 


11) 


172160 


172104 


171746 


a esc iseasesssssssesssssenssststessesenssasesmesinnstesnseumemmmeennseseeeeer--enee-es 7 
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;eeeereerere 
sAT17-~- TEST#5S7--CHECKS THAT REFERENCING THE RECEIVER BUFFER 
: CLEARS THE DONE BIT. 


,eeeeeeeeee 


AT17: 57 ; TEST NUMBER 
AT20 ;NEXT TEST 
10. > ITERATION COUNT 
1$ ;SCOPE ENTRY 
1$: BIT #LS111,aSR ;CHECK FOR LSI-11 
BNE 3% ;SKIP TEST IF SET 
MOV #226,R0 
DELAY ;DELAY 150 MSEC. 
2$: AREAD sENABLE RECEIVER 
TSTB aTKB >REFERENCE RECEIVER BUFFER 
TSTB aTKS > TEST DONE BIT 
BPL 3$ ;BRANCH IF NOT SET 
ERROR DONE BIT IS SET, ERROR 
3$: CHAIN >CHAIN TO NEXT TEST 
BR 1$ ;REPEAT TEST 


;eeeeeeeeee 


sAT20-- TEST#60--CHECK THAT THE RECEIVER DONE BIT IS ABLE TO 


: CAUSE AN INTERRUPT. 
,eeetereaeret 
AT20: 60 : TEST NUMBER 
AT21 sNWEXT TEST 
10. : ITERATION COUNT 
1$ ;SCOPE ENTRY 
STRDRV :SET UP RECEIVER INTERRUPT 
:VECTOR TO 4$ 
1$: BIT #LS111,aSR sCHECK FOR LSI-11 
BNE 5$ sSKIP TEST IF SET 
MOV #226,R0 
DELAY :DELAY 150 MSEC 
AREAD sENABLE RECEIVER 
2$: CLR atKs ;DISABLE RECEIVER INTERRUPTS 
CLR -(SP) ;SET PROCESS STATUS TO ZERO 
mf #3$,-(SP) 
3$: hs #BI1T6,aTKS sENABLE RECEIVER INTERRUPT 
N 
ERROR sERROR, RECEIVER FAILED TO INTERRU®T 
BR 5$ ;CHAIN TO NEXT TEST 
4$: POPSP2 ;OK, CLEAN STACK 
5$: CHAIN :CHAIN TO NEXT. TEST 
BR 1$ sREPEAT TEST 


SEQ 0064 


LCA CL tte ail tts te 


CZLACFO LA36 TERM (DL11 & KL 
135-JUN-79 15:33 


CZLACF .P11 


PAAR 
OONAULE WI 


2762 


006660 


006762 


000061 


000771 





171712 
001000 


000226 
171666 
000624 
006736 
000100 


171640 


11) 


172006 


171646 


N 
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1/0 LOGIC TESTS 


-@#eaetaeeee? 
TEST#61--TESTS THAT THE RECEIVER DONE DOES NOT CAUSE AN 
INTERRUPT WHEN THE PROCESSOR 1S AT THE SAME LEVEL AS 
THE RECEIVER'S INTERRUPT REQUEST LEVEL. 


;eeerererest 


sAT21-- 


AT21: 


CHGF4: 
ADD2: 


aTKs 
#LS111,aSR 
ADDS 
#226,R0 


aTKS 
TKLVL,-(SP) 
#3$,-(SP) 
#BIT6,aTKS 
aTKS 


ADD2 


ADD35 


: TEST NUMBER 

sNEXT TEST 

: 1TERATION COUNT 

; SCOPE ENTRY 

SET RECEIVER VECTOR TO ADDI 


sDISABLE INTERRUPTS 
>CHECK FOR LSI-11 
>SKIP TEST IF SET 


sDELAY 150 MSEC 

>ENABLE RECEIVER 

;DISABLE RECEIVER INTERRUPTS 

;SET PROCESSOR PRIORITY TO SAME LEVEL AS RECEIVER 


sENABLE RECEIVER INTERRUPTS 

>OK, NO INTERRUPT OCCURRED 

>CHAIN TO NEXT TEST 

;REPEAT TEST 

ERROR, RECEIVER INTERRUPTED, CLEAN STACK 


;BRANCH ADD3 


SEQ 0065 


eae ~~ 
mn ee 


Ce ee te eee eee 


CZLACFO LA36 TERM (DL11 


R KL 
CZLACF. 13-JUN-79 15:33 


Pil 


006764 


007070 


000062 


000743 


001000 
000226 
171566 
000624 
007036 


000040 
000100 


171524 


11) 


171706 


177776 
171540 


MACY11 30A(1052) 
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"-@eeenraeaneee 
TEST#62--TESTS THAT THE RECEIVER DONE DOES CAUSE AN 
INTERRUPT WHEN THE PROCESSOR iS AT A PRIORITY ONE 
LEVEL LOWER THAN THE RECEIVER'S INTERRUPT 

REQUEST LEVEL 


,*eteterenese 


-Al22-- 


A122: 


2$: 


3$: 


4$: 
5$: 


8 
13-JUN-79 


#LS111,aSR 
5$ 

#226,R0 
aTKS 
TKLVL,-(SP) 
#3$,-(SP) 


#40,PSW 
#BIT6,aT1KS 


aiks 


6 
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> TEST NUMBER 

>NEXT TEST 

: ITERATION COUNT 

: SCOPE ENTRY 

>SET RECEIVER INTERRUPT 
:VECTOR TO 4$ 

>CHECK FOR LS111 

>SKIP TEST IF SET 


;DELAY 150 MSEC 

>ENABLE RECEIVER 

;DISABLE READER INTERRUPTS 

;SET PROCESSOR PRIORITY ONE LEVEL 


;LOWER THAN READER 
sENABLE INTERRUPTS 


>FAILED TO INTERRUPT 

>CHAIN TO NEXT TEST 

>OK, CLEAN STACK 

>DISABLE RECEIVER INTERRUPTS 
:CHAIN TO NEXT TEST 

:REPEAT TEST 


— or eee ne em eee ee eee 


SEQ 0066 


eR EES ED a ee ee 


Ae 
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007072 
007074 


007202 


000063 


000760 


001000 
000226 


171460 
000100 


171442 


007176 
007172 


11) 


171604 


171452 


171436 
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-“*@eaneterere st 
TEST#65--CHECKS THAT THE RECEIVER DONE DOES NOT 
REINTERRUPT AFTER RTI INSTRUCTION WHEN DONE 

BIT IS LEFT SET. 


,eeeererenre 


AT23-- 


AT23: 


1$: 
2s: 


3$: 


4$: 


5$: 
6$: 


a 
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#LS111,aSR 
3$ 


aTKS 
#B1T6,aTKS 
alKs 


1$ 
#6S,,QTKVIR 
#5$.aSP 


3$ 


3$ 


eset —_ == 


; TEST NUMBER 
SNEXT TEST 

7 TTERATION COUNT 
;SCOPE ENTRY 
;CHECK FOR LSI-11 
;SKIP TEST IF SET 


:DELAY 150 MSEC 

sENABLE RECEIVER 

;SET RECEIVER INTERRUPT 
;VECTOR 10 4$ 

;DISABLE RECEIVER INTERRUPTS 
;ENABLE RECEIVER INTERRUPT 


;NO INTERRUPT, ERROR 

;DISABLE RECEIVER INTERRUPTS 

sRESET AFTER LAST INTERRUPT 

:CHAIN TO NEXT TEST 

sREPEAT TEST 

; INTERRUPT, OK, CHANGE VECTOR T0 6% 
: CHANGE RET ADDR T0 S$ 

;RETURN 


:0K, NO ADDITIONAL INTERRUPT 
sERROR, ADDITIONAL INTERRUPT 


>CHAIN TO NEXT TEST 


SEQ 0067 


re we ce re nn errs oe ee ee mee -< 


CZLA 


007276 
007300 


007372 
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000064 
177777 


104001 
104003 


000771 


SS nsesssesstessssessespsssssessstssessssrsnnsmnenenennneeeeeereeesss-............. 
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001000 
171362 


000600 
000030 


171332 


000716 
000600 


000100 


000100 


171230 


& KL11) 
5:33 


171472 


000716 


171300 


000716 


171240 


1/0 LOGIC TE 


-#enreeeeeee 


AT24--TEST#64~-HAVE OPERATOR TYPE A CHARACTER ON THE 


° 
,errraeerere 


CHGF 7: 
A124: 64 


1$: BIT 


28: MOV 


3$: DELAY 


B 
4$: ERROR 


118: ERROR 


KEYBOARD, THEN CHECK FOR RECEIVER DONE. 

CHECK THAT RECEIVER DONE CAUSES AN INTERRUPT 
WHEN BIT 6 (INTERRUPT ENABLE) IS SET 

CHECK THAT READING TKB CLEARS DONE BIT AND 
THAT DONE CLEARED DOES NOT CAUSE AN INTERRUPT. 


ALLOW 12 SECONDS FOR OPERATOR RESPONSE. 


; TEST NUMBER 
;LAST TEST 

s 1TERATION COUNT 
; SCOPE ENTRY 


feast eee :SKIP TEST IF NOT AN LSI-11 


." SHOULD BE (LEAR 
;RECEIVER a NOT =0 
#600,R0 ;1/2 SEC DELA 
#30,CNTR ;SET UP FOR 12 SEC WAIT 
>MESSAGE TO TYPE A CHARACTER 
;1/2 SECOND 
aqtKs CHECK DONE BIT 
5$ >SET - EXIT LOOP 
CNTR 
4$ ; TIME HAS RUN OUT... 
#600 ,R0 sANOTHER 1/2 SEC 
>CONTINUE WAIT 
;NO RECEIVER DONE, OR 
OPERATOR DID NOT RESPOND 
ca INTERRUPT 
#BIT6,aTKS sENABLE INTERRUPT 
RECEIVER DID NOT INTERRUPT 
>CLEAN UP THE STACK 
dTKB,CNTR >READ DATA BUFFER 
aTKS >CHECK THE DONE BIT 
9$ ; OK 
READING DATA BUFFER DID NOT CLEAR DONE 
;SET RECEIVER INTERRUPT 
3 ;VECTOR TO 11$ 
ABIT6O,aTKS ENABLE INTERRUPT 
aTKs ;OK, CLEAN UP 
1$ sEXIT TESTS 
;OLV INTERRUPTED = DONE CLEARED 
;CLEAN UP THE STA 
10$ sEXIT TESTS 


SEQ 0068 © 


aie 
a 
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2897 
2898 
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& 
5: 


KL 
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SEQ 0069 


' 
eter ee eee 


_——— ee ee ee 


CZLACFO LA36 TERM (0111 
13-JUN-79 1 
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007374 
007376 
007400 
007402 
007404 
007406 
007412 
007416 
007420 
007424 
007426 
007430 
007432 
007434 
007436 
007440 
007442 
007444 
007446 


000000 


000757 


K KL 
§:33 


025125 
000004 


000652 


11) 


a 





eee ee ee 
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-SBTTL LA36 PRINTER TESTS 


+ THE LA36 PRINTER TESTS WILL BE EXECUTED IN A 
CONTINOUS LOOP QUTPUTTING TO ALL MULTIPLE DL11°S 
:1f SR BIT 8 iS SET TO ZERO AT START UP TIME. IF 
-B1T & IS SET TO 1 AT START UP THEY MAY BE EXECUTED 
; INDIVIDUALLY ONCE OR CONTINUALLY LOOPED, OR 
sBECOME THE FIRST OF THE ENTIRE SEQUENCE OF PRINTER 
sTESTS. REFERENCE INTRUCTIONS IN THE INTRODUCTION 
>FOR PROPER MODE OF OPERATION. 


= XXKKKXKKKKK 


:PTO == DATA PATH TEST---FOUR LINES OF ALTERNATING 
"s"" AND "'U'' ARE PRINTED, OUT TO THE GIVEN PAPER 


; WiDTH. THE PATTERN WILL APPEAR AS FOLLOWS. 
*UPUeUeUreUey 
; UtUtUrUrUeue 
s eUrUrUreuey 
: UtUtUrUtUtUe 
6700.00.08 © 6 | 
PTO: 0 : TEST NUMBER 
PTl sNEXT TEST 
PRTHDR » 
TYPEM ;PRINT COLUMN # MESG 
HDRO 
1$: MOV #''Ut R53 :SET FIRST CHAR PAIR 
MOV #4 ,R2 :SET LINE COUNT 
es: MOV R3,R0 ;SET CHAR PAIR 
MOV WIDTH,RI :SET COLUMN COUNT 
3$: PRINTC >PRINT CHAR 
SWAB RO ;SET NEXT CHAR 
DEC RI ;DEC COLUMN COUNT 
BNE 3$ ;FINISH LINE 
SWAB R53 ;SET NEXT LINE START CHAR 


CRLF ;SEND CR-LF 
>DEC LINE COUNT 
sFINISH TEST 
CHAIN :ALL DONE, EXIT 
B ;REPEAT TEST 


SEQ 0070 


ee ree ee eee 
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007450 
007452 
007454 
007456 
007462 
007466 
007472 
007474 


007570 


oo-o-000 
—O OO — «ow 


704 
4015 


1375 
4012 


ONL Ofonn 
Nm 
© 
© 


_— 3 OO — -— 
veces 


000207 


000040 
000100 
000140 
007542 


007542 
000003 


000200 


00003 


000040 
000040 


11) 


SS Oe 


eerste 
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70000000000 
-PT1 == PRINTER CHARACTER TEST --- PRINTS ALL PRINTABLE CHARACTERS 
SO00000000K 
PTI1: 1 ; TEST NUMBER 
H sNEXT TEST 
PRTHDR 
1$: MOV #40,R1 ;SPACE TO RI 
MOV #100,R2 sa 10 R2 
MOV #140,R3 -\ 76.85 
2$: MOVE R1,R0 >; CHAR TO RO 
JSR PC,SPSP >;SEND TWO SPACES 
MOVB »RO ;NEXT CHAR TO RO 
JSR PC,SPSP ;SEND TWO SPACES 
MOV #3,R4 ;PRINT COUNT TO RG 
MOVB R3,R0 : THIRD CHAR TO RO 
3$: PRINTC sPRINT THE CHAR 
DEC R4 ; THREE TIMES ? 
BNE 3$ ;BRANCH IF NOT 
CRLF ; CARRIAGE RETURN LINE FEED 
CMPB (R1)+,(R2)¢ sNEXT CHARACTERS 
TSTB (R3)¢ 
CMP R3,#200 :CHECK IF ALL DONE 
BLO 2% ;BRANCH IF NOT 
CHAIN sEXIT TO NEXT TEST 
BR 1$ sREPEAT TEST 
SPSP: MOV #3,R4 :PRINT COUNT TO R4 
1§: PRINTC :PRINT CHAR 
DEC R4 : THREE TIMES? 
BNE 1% ;BRANCH JF NOT 
SP: MOV #40,R0 : SPACE TO RO 
PRINTC ;SEND A SPACE 
SPC: MOV #40,R0 :SPACE TO RO 
PRINTC :SEND ANOTHER 
RTS PC ;RETURN 


CZLACE 


CZLACF. 


11 


007572 
007574 
007576 
007600 
007604 
007610 
007614 
007620 
007624 
007626 
007630 
007632 
007634 
007636 
007649 
007644 
007646 
007650 
007652 
007654 
007656 
007662 
007664 
007666 
007670 
007672 
007674 
007676 


007700 


010002 


0 .A3S6 TERM (DL11 
b i 3-J5UN-79 1 


327 


—OoO—-c0O—-—- O —- O000 
o—-—-" O00 —S ON -~ aaa 
EMM NMS R= nono 
~oe eae, 

Ww & 


000740 


030060 


020064 


R KL 
$:33 


007700 
010141 
000003 
900010 
000055 


000003 


007554 


020060 


042040 


047040 
020061 
030060 


032103 





a LE Ee ——— 
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20000000008 


:PT2 == 


NON~PRINTING CHARACTER TEST. 


THIS TEST 


PRINTS THE OCTAL CODE FOLLOWED BY THE MNEMONIC 


OF ALL NON-PRINTING CHARACTERS. 


FOLLOWING EACH 


MNEMONIC, THE PRINTER IS DRIVEN BY THE NON-PRINTING 

CODE (O00C THROUGH 037 PLUS 177) 

ALL CONTROL CHARACTERS (INCLUDING THOSE FOR OPTIONS 

WILL BE SKIPPED, REFER TO THE DOCUMENT FOR A LIST OF THOSE 


TESTED. 


=X KKK KK KKK 


5$: 


6$: 
7$: 


IDEZ: 


~ASCTI 
ASCII 


ASCII 


; TEST NUMBER 
;NEXT TEST 
>PRINT TEST HEADER 


WMIDEZ,R1 ;ADDR OF IDENT TO R1 
WNPCODE R53 ;ADDR OF NON-PRINI-CODES 10 R3 
#3,R2 :NO. OF ID’S PER LINE TO R2 
#10,R4 ;NO. OF CHARS PER ID T0 RG 
(R3) #55 ;ZERO TERMINATOR IN NP TABLE? 
7$ ;BRANCH IF YES 
(R1)+,R0 :GET 1D CHARACTERS 
;AND PRINT A 
RG :GROUP OF 
4% 38 CHARACTERS 
(R5)4,R0 :GET NP CODE FROM TABLE 
#3,R4 ; AND 
: TRY TO PRINT JT 
R4 ; THREE 
5$ s TIMES 
R2 ;MORE TO GO ON THIS LINE ? 
;BRANCH IF NO 
PC ,SP2 7SEND 3 SPACES 
3$ ;BRANCH TO CONTINUE LINE 
c$ 3;GO DO NEXT LINE 
:CHAIN TO NEXT TEST 
1$ 
/000 NULOOT SOH002 STxX/ 


006 ACKOZO DLEO21 DCI/ 


/O22 DC2023 DC3024 DLG/ 


SEG 0072 


- eaetieee st 


AS Seats eessesshsthsttisesenene 


a lllineene 





a 
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010010 031060 020065 047040 -ASCI1 /025 NAKO26 SYNO27 E1R/ 
3037 tp dy 045501 031060 020066 


3038 0024 051440 047131 031060 

5059 010032 020067 042440 041124 

3040 010040 031460 020060 041440 -ASCITi /050 CANOS1 E€M 032 = SUB/ 
5041 0100466 047101 031460 020061 

5042 010054 042440 020115 051460 

5045 010062 020062 051440 041125 

5044 010070 031460 020064 043040 -ASCI1 /034 FS 035 GS 036 RS / 
3045 010076 020123 031460 020065 

3046 010104 043440 020123 031460 

3047 010112 020066 051040 020123 

3048 010120 031460 020067 052440 “ASCII /057 US 177 DEL s/ 
3049 010126 020123 033461 020067 

3050 010134 042040 046105 040 

3051 010141 000 002 006 NPCODE: .BYTE 0,2,6,20,21,22,23,24 
3052 010144 020 021 022 

3053 010147 023 024 

3054 010151 025 025 027 BVTE 25,25,27,50,51,52,.5%.,55 
5055 010154 030 031 032 

53056 010157 034 035 

3057 010161 036 037 177 OYIt (36,37 ,177.55 

3058 010164 055 

3059 010166 EVEN 


CZLACFO LA36 TERM (DL11 & KL 
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3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3069 
3070 
3071 
3072 
3073 
3074 010166 
3075 010170 
3076 010172 
3077 010174 
3078 010200 
3079 010204 
3080 010210 
3081 010212 
3082 010214 
5083 010216 
3084 010222 
3085 010224 
3086 010226 
3087 010230 
3088 010236 
3089 010242 
3090 010246 
3091 010250 
3092 010252 
3093 010256 
3094 010260 
3095 010262 
3096 010270 
3097 010276 
3098 010300 
3099 010302 
3100 010304 


000003 


103757 
104014 
104005 
000733 


000674 
000652 
000117 


007562 


000001 
000674 
007562 


000130 


000002 
000674 


11) 


000674 


000674 
000652 


tt ttn, 


A ttt 
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+ AK 


“F13 == CARRIAGE RETURN TEST 


PTS: 


1$: 
2$: 


4$: 
5$: 


THE LINE CONSISTS OF A STRING OF O'S AND 


x'S, 


COLUMN WITH A SPACE SEPARATING EACH. 


FIRST, THE O'S ARE PRINTED OUT TO THE LAST 


THEN THE 


CARRIAGE IS SPACED TO THE FIRST BLANK SPACE, AN x 
1S PRINTED AND THEN RETURNED 70 THE MARGIN. THIS 
PROCESS IS CONTINUE UNTIL ALL SPACES BETWEEN 

THE ZEROES HAVE BEEN FILLED. 


= KKK KKK KKK 


3 

PT4 
PRTHDR 
CLR 
MOV 
MOV 
PRINTC 


SPCNT 
WIDTH,R1 
#117,R0 


#1,SPCNT 
SPCNT,R1 
PC, SPC 
RI 


5$ 
#130,R0 


#2,SPCNT 
SPCNT WIDTH 
4$ 


1$ 


>; TEST NUMBER 

sNEXT TEST 

; TYPE HEADER 

>CLEAR SPACE COUNTER 
POSITION COUNTER TO Ri 
;‘‘O'’ TO RO 


;PRINT THE ‘‘O’’ 

;DECREMENT POSITION COUNTER 
;BRANCH IF 0 

:SEND SPACE 

;DECREMENT POSITION COUNTER 
;BRANCH IF NOT ZERO 

:SEND A CR 

:SPACE, COUNTER SET 10 1 
:NO. OF SPACES TO Ri 

;SEND SPACE 

;DECREMENT SPACE COUNTER 
:BRANCH IF NOT ZERO 

Ae se INTO RO 

sPRINT ‘*x’’ 

;PRINT CR 

> INCREMENT SPACE COUNT By 2 
:COMPARE POSITION COUNTER WITH COLM. COUNT 
:BRANCH IF LOWER 

7SEND LF 

:CHAIN TO NEXT TEST 

;REPEAT TEST 


SEQ 0074 


SS isetssse-asnsssusssseasesuesssssenseesstnessenmeenenenreseec Serres veces sete etna 


: K 6 
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3101 OO0O000OOUK 
3102 : 
| 3103 :P14 -- MULTIPLE LINE FEED TEST -- 63 LINE FEEDS ARE 
| 3104 : SENT WITH A REFERENCE LINE AT THE START AND END. 
| 3105 A NUMBER 1S PRINTED WHICH INDICATES THE NUMBER OF LINE 
| 3106 FEEDS THAT WILL BE ISSUED BEFORE THE NEXT 
| 3107 NUMBER OR REFERENCE LINE IS PRINTED. 
| 3109 OOOO 
| 3110 
| 3111 010306 000004 PI4: ; TEST NUMBER 
| 3112 010310 010464 PTS ;NEXT TEST 
| 3113 010312 104016 PRTHDR ; TYPE HEADER 
| 3114 010314 012737 000001 000706 1s: MOV #1,LFCNT ;LINE FEED COUNT TO 1 
| 3115 010322 013701 000652 MOV WIDTH,R1 ;COLUMN COUNT TO R1 
| 3116 010326 012702 010446 MOV #LINES,R2 ;ADDR OF NUMBER FIELD 10 R2 
| 3117 010332 004737 010416 JSR PC REF ;PRINT REFERENCE LINE 
| 3118 010336 013701 000706 2$: MOV LFCNT,R1 ;LINE FEED COUNT TO R1 
| 3119 010342 104014 3$: LF ;SEND LF 
| 3120 010344 005301 DEC RI ;DECREMENT COUNTER 
| 3121 010346 001375 BNE 3% ;BRANCH IF NOT YET 0 
| 3122 010350 006337 000706 ASL LFCNT ;DOUBLE LINE FEED COUNT 
| 3123 010354 022737 000100 000706 CMP WBITO.LFCNT :TEST IF COUNT IS 32 
| 3124 010362 001406 BEQ A$ “BRANCH IF =32, END 
| 3125 010364 112200 MOVB = (R2) +, RO ;NUMBER TO RO 
| 3126 010366 104015 PRINTC :PRINT IT 
3127 010370 112200 MOVB = (R2) +, RO ;NUMBER TO RO 
3128 010372 104015 PRINTC ;PRINT IT 
3129 010374 104022 CR ;PRINT CR 
3130 010376 000757 BR 2$ ;DRIVE THE LINEFEEDS 
3131 010400 013701 000652 4$: MOV WIDTH,R1 ;COLUMN COUNT TO R1 
3132 010404 004737 010416 JSR‘ PC,REF ;SEND END REFERENCE LINE 
| 3133 010410 104014 LF ; ADVANCE PAPER 
| 3134 010412 104005 CHAIN 
| 3135 010414 000737 BR 1$ ;REPEAT TEST 
3136 010416 112200 : REF: MOVB  (R2)+,R0 ;NUMBER TO RO 
3137 0610420 104015 PRINTC ;PRINT IT 
3138 010422 112200 MOVB = (R2) +, RO ;NUMBER TO RO 
| 3139 010424 104015 PRINTC PRINT 11 
| 3140 010426 005741 TST -(R1) ;DECREASE CUUNTER BY 2 
| 3141 010430 012700 000137 MOV #137,R0 :DASH (=) TO RO 
| 3142 010434 104015 1$: PRINTC :PRINT IT 
| 3143 010436 005301 DEC RI ;DECREMENT COLUMN COUNTER 
| 3144 010440 001375 BNE 1$ ;BRANCH IF NO ZERO 
| 3145 010442 104022 CR ;PRINT CR 
| 3146 010444 000207 RTS PC ; RETURN 
| 4 
3148 010446 030460 031060 032060 LINE3: . ASCII /01020408163200/ 
3149 010454 034060 033061 031063 
3150 010462 030060 


——— nner _ 
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3151 | 0000000008 
3152 sPTS-= SINGLE LINE FEED TEST == TESTS THE LINE FEED 
3153 CAPABILITY FROM ALL COLUMNS. 
Me 0000000008 
3156 010464 000005 PTS: 5 ; TEST NUMBER 
3157 010466 010670 P16 ZNEXT TEST 
3158 010470 104016 PRTHDR ; TYPE HEADER 
3159 010472 013701 000652 1$: MOV. WIDTH RI COLUMN COUNT TO R1 
3160 010476 005741 TST) == =(R1) DECREASE BY 2 
3161 010500 012700 000060 MOV =. #60,RO :'0' TO RO 
3162 010504 104015 28:  —- PRINTC :SEND 0 
3163 010506 005301 DEC sR ;DECREMENT COLUMN COUNTER 
3164 010510 001375 BNE 28 ;BRANCH IF NOT ZERO 
3165 010512 012700 000062 MOV =. #62,RO ;SEND A 2 
3166 610516 104015 PRINT( 
3167 010520 104015 PRINTC ;SEND A SECOND TWO 
3168 010522 023727 000652 000204 CMP = WIDTH,#132. =; COMPARE COLUMN COUNT 
3169 010530 001404 BEQ 38 SBRANCH IF EQ 132 
3170 010532 012700 903410 MOV #3410, RO :DELAY 1.8 SEC 
3171 010536 104010 DELAY 
3172 010540 000407 BR 5$ 
3173 010542 012700 000063 3$: MOV #63, RO :3'S TO RO 
3174 010546 012701 000100 MOV =. # 100, R1 :64 TO COUNTER 
3175 010552 104015 4$: PRINTC ;SEND CHARACTER 
3176 010554 005301 DEC — RI SDECREMENT COUNT 
3177 010556 001375 BNE = 4$ BRANCH IF NOT ZERO 
3178 010560 104012 $$: CRLF ;SEND A CRLF 
3179 010562 013701 000652 MOV = WIDTH, R1 ;NO. COLUMNS TO R1 
3180 010566 012700 000134 6S: = MOV. #134, RO ;BACKSLASH TO RO 
3181 010572 104015 PRINTC :SEND IT 
3182 010574 104014 LF ;PRINT LF 
3183 010576 005301 DEC =I ;DECREMENT COUNTER 
3184 010600 001372 BNE 68 BRANCH IF NOT ZERO. 
3185 010602 104022 CR ;SEND CR 
3186 010604 004737 010632 JSR PC, PTSAL ;SEND REF LINE #1 
3187 010610 104012 CRLF SEND A CRLF 
3188 010612 012700 001750 MOV =—s- #1750, RO :DELAY 1 SEC 
3189 010616 104010 DELAY 
3190 010620 004737 010632 JSR PC, PTSAL ;SEND A SECOND REF. LINE 
3191 010624 104012 CRLF SEND A_CR,LF 
3192 010626 104005 CHAIN CHAIN TO NEXT TEST 
3193 010630 000720 BR 1$ :REPEAT TEST 
3194 010632 013701 000652 PTSAL: MOV = WIDTH, R1 COLUMN COUNT TO R1 
3195 010636 012700 000061 MOV = s- #61, RO “1 TO RO 
3196 010642 104015 1S: PRINTC ;PRINT RO 
3197 010644 005301 DEC sR ;DECREMENT COUNTER 
3198 010646 001407 BEQ 28 :BRANCH IF =0 
3199 010650 005200 INC —s_ RO INCREMENT CHARACTER 
3200 010652 020027 000071 CMP RO, #71 COMP CHAR TO ''9 
3201 010656 101771 BLOS §=s18 ;BRANCH IF LOWER OR SAME 
3202 010660 012700 000060 Mov —-#60,,RO ;RESET CHAR TO "0 
3203 010664 000766 BR 1$ ; CONTINUE 
3204 010666 000207 2: TS FINISHED, RETURN TO CALLER 


64 | 
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3205 

3206 

5207 

3208 

3209 

3210 

3211 

3212 

3213 

3214 010670 
3215 010672 
3216 010674 
3217 010676 
3218 010700 
5219 010702 
3220 010706 
3221 010710 
3222 010714 
3223 010716 
3224 010720 
3225 010722 
3226 010726 
3227 010730 
3228 010732 
3229 010740 
3250 010742 
3231 010746 
3232 010750 
3235 010752 
32354 010756 
3235 010762 
3256 010764 
3237 010766 
3238 010770 
3239 010772 
3240 010776 
3241 011002 
3242 011004 
32435 011010 
5244 011012 
3245 011016 
3246 011020 
3247 011022 
3248 011024 
3249 011026 
3250 011030 
3251 011034 
3252 011036 
3253 011042 
3254 011044 
3255 011050 
3256 011052 
3257 011054 
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LA356 PRINTER TESTS 


5 AX KX KKK 
:PT6-- BACKSPACE TEST -- A REFERENCE LINE SUCH AS IN 
: TEST PTS 1S PRINTED. THE SECOND LINE CONSISTS 


; OF PRINTING A BACKSLASH, BACKSPACE AND FORWARD 
; SLASH COMBINATION QUT TO THE GIVEN COLUMN WIDTH 
; THIS LINE 1S THEN FOLLOWED BY THE SAME TwO REFERENCE 
LINES AS PRINTED IN TEST PTS. 
= XXKKKKKKKK 
PT6: 6 s TEST NUMBER 
PRTHDR : PRINT HEADER 
— ;PRINT COLUMN # MESG 
1$: MOV WIDTH,R1 :COLUMN COUNT TO R1 
TST -(R1) Ten ees BY 2 
MOV #60,R0 ok ee RO 
23: PRINTC : SEND "5 
DEC R1 ;DECREMENT COLUMN COUNTER 
BNE 2$ + BRANCH IF NOT ZERO 
MOV #62,R0 - tf O00 
PRINTC : SEND ee ay 
PRINTC ;SEND A SECOND ‘'2°' 
cates malta : COMPARE COLUMN COUNT 
MOV #3410,R0 -DELAY 1.8 SEC 
DELAY 
BR 5$ 
3$: MOV #63,R0 33'S TO RO 
MOV #100,R1 :64 TO CHAR COUNT 
4$: PRINTC 7SEND CHAR 
DEC R1 :DECREMENT CHAR COUNT 
BNE 4$ ;CONTINUE IF NOT DONE 
5$: CRLF ;SEND A CR,LF 
MOV WIDTH,R1 :COLUMN COUNT TO F1 
6$: MOV #134,R0 ;BACKSLASH TO RO 
PRINTC 7SEND IT 
MOV #10,R0 ;BACKSPACE T0 RO 
PRINTC :SEND IT 
MOV #57,R0 s FORUORD SLASH TO RO 
PRINTC :SEND IT 
DEC R1 END OF PAPER 
BNE 6$ ;BRANCH IF NO 
LF >SEND LF 
CR :SEND CR 
JSR PC,PTSAL sSEND REF LINE #1 
CRLF :SEND A CR,LF 
MOV #1750,R0 sDELAY 1 SEC 
DELAY 
JSR PC,PTSAL :SEND SECOND REF LINE 
CRLF :SEND A CR,LF 
CHAIN :CHAIN TO NEXT TEST 
BR 1$ SREPEAT TEST 


SEQ 0077 
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3258 DO0O000000K | 
3259 : 
3260 :PT7-- OVERPRINT TEST-- A ROW OF ALTERNATING M'S AND 
3261 : SPACES ARE PRINTED, OUT TO THE LAST COLUMN AND OVFERPRINTED TWICE. 
3262 : A SECOND LINE OF ALTERNATING SPACES AND ‘'a'S'’ 1S THEN 
3263 : SENT 5 TIMES AS THE FIRST LINE. THIS IS FOLLOWED 
3264 ; BY A THIRD AND FINAL LINE OF ALTERNATING ‘8° 
3265 , AND SPACES. 
3266 ; 
3267 > KKM KKK 
3268 
3269 011056 000007 PT7: 7 ; TEST NUMBER 
3270 011060 011270 PT10 sNEXT TEST 
53271 011062 104016 PRTHDR :PRINT MESSAGE 
3272 011064 012703 000002 1$: MOV #2,R3 32 COUNT TO R3 
3275 011070 013701 000652 2s: MOV WIDTH,R1 ;NO. OF COLUMNS TO R1 
3274 011074 012700 000115 33: MOV #115,R0 :‘*’’ TO RO 
3275 011100 104015 PRINTC sSEND IT 
3276 011102 005301 DEC R1 ;END OF LINE 
3277 0111046 001404 BEQ 4$ ;BRANCH IF YES 
3278 011106 004737 007562 JSR PC ,SPC :SEND SPACE 
3279 011112 005301 DEC R1 sEND OF LINE? 
3280 011114 001367 BNE 3$ ;BRANCH IF NO 
3281 011116 022703 000002 4$: CMP #2,R3 : T R3 
3282 011122 001003 BNE 6$ :BRANCH IF NOT FIRST TIME 
3285 011124 104022 5$: CR :SEND CR 
3284 011126 005303 DEC R3 ;DECREASE LINE COUNTER 
3285 011130 000757 BR 2$ sREPEAT LINE 
3286 011132 005703 6$ TST R3 s THIRD TIME? 
3287 011134 001373 BNE 5$ >;BRANCH IF NOT 
3288 011136 104012 CRLF ;NEXT LINE 
3289 011140 005723 TST (R3)+¢ ;REPEAT COUNTER TO R3 
3290 011142 013701 000652 7$: MOV WIDTH,R1 ;COLUMN COUNT TO R1 
3291 011146 004737 007562 8$: JSR PC, sPC :SEND SPACE 
5292 011152 005301 DEC R1 :DECREASE COLUMN COUNT 
3293 011154 001405 BEQ 9$ ;BRANCH IF 0, END OF LINE 
3294 011156 012700 000100 MOV #100,R0 ;‘‘a"’ TO RO 
3295 011162 104015 PRINTC :SEND IT 
3296 011164 005301 DEC R1 ;DECREASE COLUMN COUNT 
3297 011166 001367 BNE 8$ ;BRANCH IF NOT 0 (NOT END) 
3298 011170 022703 000002 9$: CMP #2,R3 >END OF LINE, FIRST TIME? 
3299 011174 001003 BNE 11$ :BRANCH IF NOT 
3300 011176 104022 10$: CR ;SEND CR 
3301 011200 005303 DEC R3 ;DECREASE LINE COUNTER 
3302 011202 000757 BR 7$ sREPEAT LINE 
3303 011204 005703 11$: TST R3 s TEST IF THIRD REPEAT 
3304 011206 001373 BNE 10$ ;BRANCH IF NOT 
3305 011210 104012 CRLF 3:00 NEXT LINE 
3306 011212 005723 TST (R3)+ ;LINE REPEAT COUNTER TO R3 
3307 011214 013701 000652 12$: MOV WIDTH,R1 > COLUMN COUNT TO R1 
3308 011220 012700 000046 13$: MOV #46,R0 7B’ TO RO 
3309 011224 104015 PRINTC :SEND IT 
a319 011226 005301 DEC R1 :DECREASE COLUMN COUNT 
1 
3312 011230 001404 BEQ 14% ;BRANCH IF END 
3313 011232 004737 007562 JSR PC ,SPC ;SEND SPACE 
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5314 011236 005301 DEC RI >DECREASE COLUMN COUNT - 
3315 011240 001367 BNE 13% >BRANCH IF NOT END 
3316 011242 022703 000002 14%: CMP #2,R3 sTEST IF FIRST TIME 
3317 011246 001003 BNE 16% BRANCH IF =2, FIRST TIME 
5318 011250 104022 15$: CR ;SENT CR 
3319 011252 005303 DEC R3 ;DECREASE REPEAT COUNTER 
3320 011254 000757 BR 12$ >PRINT LINE AGAIN 
3321 011256 005703 16$: TST R3 >TEST IF END, R3=0 
5322 011260 001373 BNE 15$ ;BRANCH IF NOT END 
33235 011262 104012 CRLF SEND CR,LF 
3324 011264 104005 CHAIN >CHAIN TO NEXT TEST 
3525 011266 000676 BR 1$ ;REPEAT TEST 
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DO0000O0OOK 
o£ s10-- PRINTING FREQUENCY TEST-- 120 H'S ARE PRINTED ON 4 LINES 
‘ 50 PER LINE. THE TEST 1S SUCH THAT BETWEEN THE FIRST AND SECOND 
° “"H'" A_30 MSEC DELAY IS INTRODUCED. THIS DELAY IS THEN INCREASED 
: BETWEEN CHARACTERS OUT TO 60 CHARACTERS IN AN EXPONENTIAL 
: MANNER. THE DELAY IS THEN DECREASED IN THE SAME MANNER OUT TO THE 
: 120TH CHARACTER. THIS DELAY IS CALCULATED AS FOLLOWS: 
: NEW DELAY = OLD DELAY C+ OR -] (OLD DELAY/16 + OLD DELAY/128 ) 
> XXKXKKKKKK KX 

011270 000010 PT10: 10 : TEST NUMBER 

011272 011426 PT11 sNEXT TEST 

011274 104016 PRTHDR ; TYPE MESSAGE 

011276 012701 000036 1$: MOV #36,R1 ;SET R1=30 

011302 012702 000170 MOV #120.,R2 ;SET CHAR COUNT = 120 

011506 012737 000036 011324 MOV #30. ,3$+2 ;SET UP DELAY VALUE 

011314 012700 000110 2$: MOV #110,R0 :“"H'' TO RO 

011320 104015 PRINTC ;SEND IT 

011322 012700 000036 3$: MOV #30.,R0 

011326 104010 DELAY ; DELAY 

011330 005301 DEC R1 >DEC. COUNT OF CHARS PER LINE 

011332 001426 BEQ 6$ sBRANCH IF 0, END OF LINE 

011334 005302 4$: DEC R2 ;DECREMENT CHAR COUNTER 

011336 001430 BEQ 7$ ;BRANCH IF END 

011340 013704 011324 MOV 5$+2,R4 :GET OLD DELAY 

011344 006204 ASR R4 ;CAL 1/16 OF OLD DELAY 

011346 006204 ASR R4 

0113550 006204 ASR R4 

011352 006204 ASR R4 

011354 010405 MOV R4,RS5 ;SAVE 1/16 IN R5 

0113556 006204 ASR RG ;CAL 1/128 OF OLD DELAY 

011360 006204 ASR R4 

011362 006204 ASR RG 

011364 060405 ADD R4,R5 21/16 +1/128 TO R5 

011366 022702 000074 CMP #60. ,R2 ;TEST WHICH HALF OF THE 120 CHARS. 

0113572 003403 BLE 5$ >BRANCH IF LT OR EQ 60 

011374 160537 011324 SUB R5,3$+2 :GT 51, DECREASE DELAY BY 34 MEC. 

011400 000745 BR 2$ :GO PRINT AGAIN 

011402 060537 011324 5$: ADD R5,3$+2 >LT HALF WAY, ADD DELAY OF 34 MEC, 

011406 000742 BR 2$ :GO PRINT AGAIN 

011410 104012 6$: CRLF ;SEND CRLF 

011412 012701 000036 MOV #36,R1 :SET R1=30 

011416 000746 BR 4$ 

011420 104012 7$: CRLF ;SEND CR,LF 

011422 104005 CHAIN ;CHAIN TO NEXT TEST 

011424 000724 BR 1$ ;REPEAT TEST 
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CZLACF P11 13-JUN-79 15:33 LA36 PRINTER TESTS SEO 0081 
a373 5 KKK 
3377 :PT11< RIBBON FEED TEST-- THIS TEST PRINTS A SINGLE COLUMN OF x'S ' 
3378 (24 LINES) DOWN THE LEFT MARGIN OF THE PAGE. 4 
ede VISUALLY CHECK THE RIBBON FEED MECHANISM FOR PROPER OPERATION. 

3381 = XKKKKKKKKK 

3382 

3383 

3384 011426 000011 PT11: 11 ; TEST NUMBER : 
3385 011430 011460 PT12 >NEXT TEST 
3386 011432 104016 PRTHDR ; TYPE MESSAGE 

3387 011434 012701 000030 1$: MOV #30,R1 >SET R1=24(10), LINE COUNT 
3388 011440 012700 000130 2s: MOV #130,R0 ;SET CHAR = xX 

3389 011444 104015 PRINTC PRINT X 

3390 011446 104012 CRLF ;SEND CR-LF 

3391 011450 005301 DEC 1 ;DECREMENT LINE COUNT 

3392 011452 001372 BNE 2% :CONTINUE IF NOT DONE TEST 
3393 011454 104005 CHAIN ;CHAIN TO NEXT TEST 

3394 011456 000766 "BR 1$ sREPEAT TEST 

3395 “'* 

3396 

3397 

3398 5s AXAKK KKK 

3399 

3400 :PT12=- PRINTER BELL TEST-- THE LAST TEST IN THE 

3401 ; PRINTER TEST SEQUENCE. THIS TEST OUTPUTS 

3402 : EIGHT BELL SIGNALS TO THE PRINTER 

3403 : 

3404 . 

3405 AXA KK KKK 

3406 

3407 011460 000012 PT12: 12 sTHIS TEST 

3408 011462 007374 PTO zNEXT TEST : 
3409 011464 104016 PRTHDR ; TYPE HEADER : 
3410 011466 012701 000010 PT12A: MOV #10,R1 ; COUNTER TO RI 

3411 011472 012700 000007 MOV #7,R0 ;BELL TO RO 

3412 011476 104015 1$: PRINTC SEND IT 

3413 011500 005301 DEC R1 ;DECREMENT COUNT 

3414 011502 001375 BNE 1$ ;BRANCH IF NOT ZERO 

3415 011504 104014 LF 

3416 011506 012700 003720 MOV #3720,R0 ;DELAY 2 SEC BEFORE RESTARTING 
3417 011512 104010 DELAY 

3418 011514 013700 000042 MOV a#42,R0 sCHECK IF UNDER ACT11 OR XXDP 
3419 011520 001405 BEQ MERE : CONTINUE TEST SEQUENCE 

3420 011522 000240 NOP :A RESET WAS FORMERLY HERE 
3421 011524 004710 LOGICAL :JSR PC, (RO) 

3422 011526 000240 NOP 

3425 011530 000240 NOP 

3424 011532 000240 NOP 

3425 011534 104005 HERE: CHAIN >CHAIN TO NEXT TEST 

3426 011536 000753 GR PTI2A >REPEAT TEST 
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20000000008 


:PT17-- LIFE TEST 
; THIS TEST PRINTS 2 FULL LINES OF EACH PRINTABLE 
CHARACTER AND OVERPRINTS THE SECOND LINE 4 TIMES. 
THIS TEST 1S CONTINUOUS RUNNING ONCE INITIATED, 
LOOPING AUTOMATICALLY ON ITSELF. 
END OF PASS COUNT IS CLEARED WHENEVER TEST IS RESTARTED 


CZLACFO LA36 TERM (DL11 8 
CZLACF P11 ae 


135-JUN-79 1 


DOOOO00000( 
000017 PT17B: 17 ; TEST NUMBER 
011540 P117B sNEXT TEST 
000137 011600 JMP PT17D ; CONTINUE 
000017 PT17: 17 ; TEST NUMBER 
011540 P1178 sNEXT TEST 
005037 012116 CLR PASCNT :CLEAR PASS COUNT 
013704 000652 MOV WIDTH,R4 INITIALIZE RG 
012737 000001 012114 MOV #1,DIRIN ;AND DIRECTION OF PRECESS 
104016 PRTHDR 
104007 TYPEM :PRINT COLUMN # MESG 
014627 HDRO 
012703 000041 PT17D: MOV #41,R35 :;SET START CHAR 
005237 012116 INC PASCNT 
023727 012116 000031 CMP PASCNT,#31 :D0 31 TIMES 
001003 BNE 20$ ;BRANCH IF NOT DONE 
012737 000001 012116 MOV #1,PASCNT :START OVER 
012700 014542 208: MOV #PASMES RO ;SET MESG ADDR 
013701 Q12116 MOV PASCNT,R1 7# TO CONVERT 
012702 000002 MOV #2,R2 :# DIGITS 
104023 BIOASC ;CONVERT PASCNT TO ASCII 
013701 000652 1$: MoV WIDTH,R1 >;SET COLUMN COUNT 
010300 2$: MOV R35,R0 :GET CHARACTER 
004737 011766 JSR PC ,CKPOS >; TIME TO INSERT PASS @ ? 
104015 PRINTC ;SEND CHAR 
005301 DEC R1 sDECREMENT COUNT © 
003372 BGT 2$ >BRANCH IF NOT DONE 
004737 012034 JSR PC ,ADJRG ;ADJUST R& POINTER 
104012 CRLF 
012702 000005 MOV #5 ,R2 ;SET OVERPRINT COUNT 
013701 000652 3$: MOV WIDTH,R1 ;SET COLUMN COUNT 
010300 4$: MOV R3,RO0 ;GET CHARACTER 
004737 011766 JSR PC ,CKPOS :TIME TO INSERT PASS @ ? 
104015 PRINTC ;SEND CHAR 
005301 DEC R1 :DECREMENT COUNT 
003372 BGT 4% :BRANCH IF NOT DONE 
104022 CR :SEND CR 
005302 DEC R2 ;DONE OVERPRINTS ? 
001365 BNE 3$ ;NO. CONTINUE 
004737 012034 JSR PC, ADJRS sADJUST R4 POINTER 
104014 LF > SEND LF 
005203 INC R3 :SET NEXT CHAR 
022703 000177 CMP #177,R3 ;DONE CHAR SET ? 
001341 BNE 1$ 3NO. CONTINUE 
004737 012034 JSR PC ,ADJRG ;OFFSET POINTER 3 PLACES 
004737 012034 JSR PC ,ADJRS :10 RETAIN VISUAL ALIGNMENT 
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3483 011752 004737 012034 JSR PC, ADJRG > THROUGH END OF PASS 
3484 011756 104007 T¢PEM 7 TYPE END OF PASS MESS 
3485 011760 014523 ENDPAS 
3486 011762 104005 CHAIN sREPEAT TEST 
3487 011764 000705 BR P117D 
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3489 

3490 011766 
3491 011770 
3492 011772 
3493 011776 
3494 012000 
3495 012004 
3496 012006 
3497 012012 
3498 012014 
3499 012020 
3500 012022 
3501 012026 
3502 912032 
3503 

3504 012034 
3505 012040 
3506 012042 
3507 012044 
3508 012050 
3509 012052 
3510 012056 
3511 012060 
3512 012066 
3513 012070 
3514 012072 
3515 012076 
3516 012100 
3517 012102 
3518 012106 
3519 012112 
3520 

3521 012114 
5522 

3523 012116 


005737 
001013 
005204 
020437 


005037 
000207 


000000 
900000 
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000040 
014542 
014543 
000040 
900002 
012114 


000652 
000652 
000001 


000004 


900005 
012114 
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CKPOS: CMP R4,R1 ;1S 11 TIME TO INSERT PASS @ ? 
BNE 1$ ;BRANCH IF NO 
MOV #40,R0 ;PRINT A SPACE 
PRINTC 
MOVB PASMES,RO sPRINT MSG OF PASS COUNT 
PRINTC 
MOVB PASMES#1,R0 
PRINTC 
MOV #40,R0 ;PRINT A SPACE 
PRINTC 
SUB #3,R1 ;ADJUST R1 3 POSITIONS 
ADD #2,(SP) ;ADJUST RETURN PC OVER PRINTC 
1$: RTS PC 
ADJRG: TST DIRTN : TEST DIRECTION OF PRECESS 
BNE 1$ ;BR IF LEFT 
INC RG ; INCREASE POSITION CNTR 
CMP R4 WIDTH :1S R& > WIDTH ? 
BLOS 3$ :BR IF NOT GREATER 
MOV WIDTH,R4 7 CHANGE DIRECTION 
DEC R4 : TO 
MOV #1,DIRIN ; LEFT. 
BR 3% 
1$ DEC R4 ;DECREASE POSITION CNTR 
CMP R484 LESS THAN 4 ? 
BLT 2$ :BR IF YES 
BR 3$ sELSE EXIT 
2$ MOV #5,R4 SET R4 TO POS 5 
CLR DIRIN ; CHANGE DIRECTION TO RIGHT 
3$: RTS PC sEXIT 
DIRTN: WORD 0 ;:DIRECTION OF PRECESS (O=LEFT) 


PASCNT: .WORD 0 
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000020 
012170 
104016 
104020 
012700 
104010 
022737 
001405 
104017 
117777 
000763 
104007 
014772 
104005 
000757 


000021 
012226 
104016 
012737 
013702 
013700 
104015 
005502 
005373 
104012 
000767 
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000036 


000177 000700 


166440 
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LA356 ECHO TESTS 
-SBTTL LA36 ECHO TESTS 
OOOO O0000K 


;EO20-- CHARACTER ECHO TEST=-- ALL PRINTABLE AND 
: NON-PRINTING CHARACTERS TYPED ON THE KEYBOARD 
ARE USED TO DRIVE THE PRINTER, ONE CHARACTER AT 


A TIME. A "'RUBOUT'' WILL CAUSE THE TEST TO BE 
TERMINATED. 

OOK IKK K 

£020: 20 : TEST NUMBER 


E021 sNEXT TEST 


PRTHDR : TYPE HEADER 
1$: READ :GO WAIT FOR KEYBOARD INPUT 
MOV #30..R0 :DELAY FOR HALF DUPLEX 
LAY 
CMP #177, 1EMPCH :CHECK IF RUBOUT 
BEQ 2$ :BRANCH IF YES 
PRNI :NO, CHECK PRINTER READY 
nOvE a1KB.a1PB :READY, ECHO CHARACTER 
2$: TYPEM :PRINT TERMINATION MESSAGE 
ECOEND 
CHAIN :CHAIN TO NEXT TEST 
BR 1$ >REPEAT TEST 
OOO OOOIUK 


;E021-= LINE ECHO TEST, FAST RATE-- THIS TEST WILL 
: CAUSE THE CONTINUAL PRINTING OF ‘0’ AT THE MAXIMUM 


RATE UNTIL EITHER ANOTHER CHARACTER IS SELECTED 

BY PRESSING A KEY ON THE KEYBOARD OR TERMINATION BY THE 
: RUBOUT. 

= AXKAKKK KKK 

fo21: 24 - TEST NUMBER 


EOQ22 sNEXT TEST 
PRTHDR TYPE HEADER 


EO21A: MOV #60, REPT ;CHARACTER TO BE REPEATED (0) 
1$: MOV WIDTH,R2 7SET COLUMN COUNT 
2$: MOV REPT,RO >GET CHAR 

PRINTC :PRINT CHAR 

DEC R2 ;DEC COLUMN COUNT 

BGT 2% sFINISH LINE 

CRLF ;SEND A CR AND LF 

BR 1$ 


ee we ee 
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3574 OO00000000 

3575 : 

3576 sEQ22-- LINE ECHO TEST, SLOW RATE-- SAME AS E021 EXCEPT 

3577 : THAT A DELAY IS INTRODUCED BETWEEN CHARACTERS 

3578 : TO PRODUCE A LCV ACTION 

3579 : 

3580 OOO0000000 

3581 . 

3582 012226 000022 E022: 22 

3583 012230 012500 E023 

3584 012232 104016 PRTHDR ; TYPE HEADER 

3585 012234 012737 000060 000662 EO22A: MOV #60,REPT ;LOAD 0 AS INITIAL CHARACTER 
3586 012242 013702 000652 1$: MOV WIDTH,R2 :SET COLUMN COUNT 

3587 012246 013700 000662 2$: MOV REPT,RO :GET CHAR 

3588 012252 104015 PRINTC ;PRINT CHAR 

3589 012254 005302 DEC R2 :DEC COLUMN COUNT 

3590 012256 001404 BEQ 3$ ;BRANCH IF DONE LINE 

3591 012260 012700 003410 MOV #3410,R0 

3592 012264 104010 DELAY sDELAY 1.8 SEC. 

35935 012266 000767 BR 2$ ;OUTPUT NEW CHAR. 

5594 012270 104012 3$: CRLF ;SEND A CR AND LF 

3595 012272 000763 eka 1$ 
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3596 seerereerre 
3597 : 
ties : THIS FOLLOWING TABLE IS USED BY TEST £023 
3600 seerererens 
3601 
3602 912274 052516 029114 MONIC: .ASCI] /NUL / 
3603 012300 047523 020110 ASCII /SOH / 
3604 012304 2123 020130 ASCII /STX / 
3605 012310 052105 020130 ASCII /ETX / 
3606 012314 047505 020124 -ASCLi /EOT / 
3607 012320 047105 020121 ASCII /ENQ / 
3608 012324 041501 020113 ASCII] = /ACK / 
3609 012330 042502 020114 -ASCI] /BEL / 
3610 012334 051502 020040 -ASCII] /BS / 
3611 012340 052110 020040 ASCII /HT / 
3612 012344 043114 020040 ASCII] /LF / 
3613 012350 052126 020040 ASCII /vT / 
3614 012354 043106 020040 ASCII /FF / 
3615 012360 051103 020040 -ASCII] /CR / 
3616 012364 047523 020040 -ASCI] /S0 / 
3617 012370 044523 020040 ASCII /S1 / 
3618 012374 046104 020105 ASCII /DLE / 
3619 012400 041504 020061 ASCII /DC1 / 
3620 012404 041704 020062 ASCII /DC2 / 
3621 012410 041504 020063 ASCII /DC3 / 
3622 012414 041504 020064 -ASCII /DC4& / 
3623 012420 040516 020113 -ASCII /NAK / 
3624 012424 054523 020116 ASCII] /SYN / 
3625 012430 052105 020102 -ASCI1 /ETB / 
3626 012434 040503 020116 ASCII] /CAN / 
3627 012440 046505 020040 -ASCI] /EM / 
3628 012444 052523 020102 ASCII] /SUB / 
3629 012450 051505 020103 ASCII /ESC / 
3630 012454 051506 020040 ASCII /FS / 
3631 012460 051507 020040 -ASCI] /GS / 
3632 012464 051522 020040 ASCII] /RS / 
3633 012470 051525 020040 MSCIY. (pS <7 
ere 012474 050123 020040 ASCII] /SP / 
6 
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3637 20000000001 
3638 : 
3639 sEOQ25-- CHARACTER CODE TEST-- ANY CHARACTER SELECTED 
3640 : WILL BE ECHCED ALONG WITH ITS OCTAL CODE. 
5641 : A MNEMONIC WILL BE PRINTED INSTEAD OF THE CHARACTER 
3642 ; If 117 1S A NON-PRINTING CHARACTER. 
3543 : THE PARITY OF THE RECEIVED CODE WILL ALSO BE 
te ; INDICATED AS EITHER EVEN OR ODD. 
3646 DOOOO000006 
3647 : 
3648 012500 000023 E023: 23 : TEST NUMBER 
3649 012502 013022 E024 NEXT TEST 
3650 012504 104016 PRTHDR : TYPE HEADER 
3651 012506 104020 1$: READ :GO WAIT FOR CHARACTER 
3652 012510 012700 000036 MOV #30.,R0 ;DELAY FOR HALF DUPLEX 
3653 012514 104010 DELAY 
3654 012516 023727 000700 000041 CMP TEMPCH, #41 : TEST IF CHAR IS PRINTABLE 
3655 012524 103015 BHIS 3$ ;BRANCH IF IT IS 
3656 012526 004737 012662 JSR PC,STRLN :STORE CODE INTO MESSAGE 
3657 012532 113700 000700 MOVB TEMPCH,RO :GET CODE AGAIN 
3658 012536 006300 ASL RO sMULT BY 2 
3659 012540 006300 ASL RO sMULT BY 4 
3660 012542 062700 012274 ADD #MONIC,RO ;ADD ADDR OF MNEMONIC TABLE 
3661 012546 004737 012740 JSR PC ,MOVNUM :MOV MNEMONIC TO MESSAGE 
3662 012552 104000 2$: TYPE : TYPE CODE AND MNEMONIC 
3663 012554 015021 EO23m ; ADDRESS OF MESSAGE 
3664 012556 000753 BR 1$ :GO WAIT FOR NEXT CHARACTER 
3665 012560 023727 000700 000177 3$: CMP TEMPCH,#177 sTEST IF CHAR IS A RUBOUT 
3666 012566 001421 BEQ 4$ 7BRANCH IF RUBOUT 
3667 012570 012701 013012 MOV #MG24,R1 
3668 012574 113721 000700 MOVB TEMPCH, (R1)+ 
3669 012600 112721 000040 MOVB #40,(R1)+ 
3670 012604 112721 000040 MOVB #40,(R1)+ 
3671 012610 112721 000040 MOVB #40, (R1)+ 
3672 012614 004737 012662 JSR PC,STRLN ;STORE CODE INTO MESSAGE 
3673 012620 012700 013012 MOV #4624 ,R0 ;ADDR OF CHAR INTO RO 
3674 012624 004737 012740 JSR PC ,MOVNUM ;MOVE CHAR INTO MESSAGE 
3675 012630 000750 Gk 2$ ; TYPE MESSAGE 
3676 012632 004737 012662 4$: JSR PC,STRLN ;RUBOUT, CONVERT AND STOR CODE 
3677 012636 012700 013016 MOV #MG25,R0 ;ADDR. OF DEL INTO RO 
3678 012642 004737 012746 JSR PC ,MOVNUM sMOVE DEL INTO MESSAGE 
3679 012646 104000 TYPE : TYPE MESSAGE 
3680 012650 015021 E02 5m ;ADDR OF MESSAGE 
3681 012652 104007 TYPEM 
3682 012654 014772 ECOEND 
3683 012656 104005 CHAIN :CHAIN TO NEXT TEST 
3684 012660 000712 BR 1$ REPEAT T 
3685 012662 012702 000003 STRLN: MOV #3,R2 :COUNT OF 3 TO R2 
3686 012666 012701 015023 MOV #LINES,R1 : ADDR OF MESG TO ki 
3687 012672 062701 000003 ADD #3,R1 :POINT TO LAST SPACE IN MESG 
3688 012676 013700 000704 1$: MOV PCHAR,RO sMOVE OCTAL CODE TO RO 
3689 012702 042700 177770 BIC #177770,R0 :SAVE LS OCTAL CHAR 
3690 012706 062700 000060 ADD #60,R0 >MAKE ASCII 
7691 012712 110041 MOVB RO,-(R1) >MOVE INTO MESG 
3692 012714 005302 DEC R2 ;DECREMENT CHAR COUNTER 
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3693 012716 001407 BEQ 2$ ;BRANCH IF 3 MOVED 
3694 012720 006237 000704 ASR PCHAR ;NOT THREE, SHIFT NEXT OCTAL : 
3695 012724 006237 000704 ASR PCHAR ;CHARACTER TO THE RIGHT | 
3696 012730 006237 000704 ASR PCHAR | 
3697 012734 000760 BR 1$ ;CONVERT AND STORE NEXT CHAR | 
3698 012736 000207 23: RTS PC ;RETURN TO CALLER 
3699 012740 012701 015027 MOVNUM: MOV #LINESA,R1 "ADDR OF LINES IN RI 
3700 012744 012702 000004 MOV #4 ,R2 ;COUNT OF 4 TO R2 
3701 012750 112021 1$: MOVB (RO)+,(R1)¢ ;MOV 4 CHARS TO MESG AREA 
3702 012752 005302 DEC R2 ;DECREMENT COUNTER 
3703 012754 001375 BNE 1$ ;BRANCH IF NOT ALL DONE 
3704 012756 105737 000702 TSTB = PARITY ;TEST PARITY F LAG 
3705 012762 001003 BNE 2$ ;BRANCH IF ODP ARIT 
3706 012764 012700 015071 MOV #EVEN,RO "SET ADDRESS FOR EVEN PARITY MESG 
3707 012770 000402 BR 3$ ; CONT INUE 
3708 012772 012700 015075 2$: MOV #ODD ,RO ; SET ADDRESS FOR ODD PARITY MESG 
3709 012776 012702 000004 3$: MGV #4 ,R2 ;COUNT OF 4 TO R2 
3710 013002 112021 4$: MOVB = (RO) #, (R14 ;MOVE 4 CHARS TO MESG AREA 
3711 013004 005302 DEC R2 ;DECREMENT COUNTER 
3712 013006 001375 BNE 4$ ;BRANCH IF NOT DONE 
3713 013010 000207 RTS PC ; RETURN 
14 
Ab 013012 020040 020040 M24: GASH Fs ;SAVE CHARACTER CODE 
6 
az EVEN 
he 0130160 042504 020114 MG25: ASCI! /DEL / ;MNEMONIC FOR RUBOUT 
3721 EVEN 


| N 7 oe? tome ole 
CILACKO LAS TERM (OLIT & KL11) MACY11 30A(1052) 13-JUN-79 15:35 PAGE 91 
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i 
| CZLACF .P11 SEQ 0091 | 
3722 0000000001 | 
3723 sEO24-- SELECTED PATTERN ECHO TEST=-- SELECT 1 10 256 | 
3724 : CHARACTERS. EACH WILL BE ECHOED 
3725 : AND STORED UNTIL THE CNTL/C 1S SELECTED. 
3726 : AT THAT TIME ALL CHARACTERS WILL BE PRINTED AS 
3727 : A CONTINOUS STRING UNTIL EITHER THE RUBOUT IS , 
| 3723 : SELECTED TO TERMINATE OR THE CNTL/C IS SELECTED 
3729 ; AGAIN. A TERMINATING CNTL/C FOLLOWED BY ANOTHER 
| 3730 : CNIL/C WILL ALWAYS CAUSE THE LAST INPUTTED STRING TO | 
3731 : BE PRINTED. A TERMINATING CNTL/C FOLLOWED BY A CHARACTER OTHER THAN A | 
| 3732 : RUBOUT WILL CAUSE A NEW STRING TO BE INPUTTED. | 
| 3735 OOOO OUUOOOX | 
| 73, | 
3735 013022 000024 E024: 24 : TEST NUMBER | 
3756 013024 013570 E025 :NEXT TEST 
3737 013026 104016 PRLHDR TYPE TEST HEADER 
3738 913030 005001 E024B: CLR R1 CLEAR CHARACTER COUNT 
3739 013032 012702 013166 MOV #BUFR,R2 ADDRESS OF BUFFER TO R2 
3740 013036 104020 1$: READ sWAIT FOR INPUT 
3741 013040 012700 000036 MOV #30.,R0 DELAY FOR HALF DUPLEX 
3742 013044 104010 DELAY 
3743 013046 022737 000177 000700 CMP #177, 7EMPCH ;TEST IF RUBOUT 
3744 013054 001440 BEQ TERM ;BRANCH IF RUBOUT 
3745 013056 022737 000003 000700 CMP #3, TEMPCH TEST IF CNTL-C 
3746 013064 001413 BEQ OUTPUT ;BRANCH IF CNTL-C 
3747 013066 020127 000400 CMP R1,#256. ;YES, CHECK IF CHAR CNT IS EQ, GT 256 
3748 013072 103361 BHIS 1$ BRANCH IF YES, IGNORE CHAR 
3749 013074 113722 000700 MOVB TEMPCH, (R2)+ ;STORE CHAR INTO BUFFER 
3750 013100 005201 INC R1 : INCREMENT CHARACTER COUNT 
3751 013102 104017 PRNT ;CHECK IF PRINTER READY 
3752 013104 113777 000700 165506 MOVB TEMPCH,aTPB sECHO CHAR 
3723 013112 000751 BR 1$ :GO WAIT FOR NEXT CHAR 
4 ; 
3739 :SECTION TO OUTPUT CONTINOUS STRING 
6 : 
3757 013114 020227 013166 OUTPUT: CMP R2,#BUFR :CHECK IF POINTER IS AT START OF TABLE 
3758 013120 001403 BEQ 1$ :YES, BRANCH 
3759 013122 113722 000700 MOVB TEMPCH, (R2)+ 7NO, STORE *C IN TABLE 
3760 013126 104013 SCRLF SEND A CR LF 
3761 013130 012702 013166 1$: MOV #BUFR,R2 s;BUFFER ADDRESS TO R2 
3762 013134 021227 000003 CMP (R2) #3 sCHECK IF FIRST CHAR IS “C 
3763 013140 001733 BEQ E0248 YES, LOOK FOR INPUT AGAIN 
3764 013142 112200 2$: MOVB (R2)+,RO :GET CHARACTER 
3765 013144 020027 000003 CMP RO,#3 :DONE STRING? 
3766 013150 001767 EQ 1 :YES, RESTART STRING 
3767 013152 104015 PRINTC :PRINT CHAR 
3768 013154 000772 R 2% : CONTINUE 
3769 013156 104007 TERM:  TYPEM ;OUTPUT TERMINATION MESSAGE 
3770 013160 014772 ECOEND | 
3771 013162 104005 CHAIN CHAIN TO NEXT TEST | 
3772 013164 000721 BR E024B :REPEAT TEST 
3773 013166 000003 BUFR: INITIALIZE FIRST CHAR AS CNTL“C IN TABLE | 
3774 013170 000400 BLKB 256. :256 CHARACTER BUFFER | 
i 
| 
| 
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3775 00000000008 

3776 : 

3777 ;EO025-- BELL ECHO TEST-- A MESSAGE 1S PRINTED AND 

3778 : THE TEST WAITS FOR SOME PRINTABLE CHARACTER 

3779 - TO BE SELECTED ON THE KEYBOARD (G1040). THIS 

3780 : TEST IS VALID ONLY IF THE PAPER WIDTH IS GT 64 

3781 : COLUMNS. IF LT64 COLUMNS AN ILLEGAL BELL TEST 

3782 : MESSAGE 1S PRINTED. 

3783 : 

3784 > MKKK KKK KKK 

3785 : 

3786 013570 000025 E025: 25 : TEST NUMBER 

3787 013572 012120 E020 :NEXT TEST HEADER 

3788 013574 104016 PRTHDR :PRINT HEADER 

3789 013576 023727 000652 000101 1$: CMP WIDTH, #101 ;TEST IF COLUMN COUNTIS EQ,GT 64 

3790 013604 103427 BLO 4% ;BRANCH IF NOT 

3791 013606 104007 TYPEM s TYPE TEST MESG 

3792 013610 014645 EO25MA 

37953 013612 000402 BR 3$ sWAIT FOR CHAR 

3794 013614 104000 2$: TYPE ; TYPE TEST MESG ON TERM CHAR RCVD ON 

3795 013616 014645 EO25MA 

3796 013620 104020 3$: READ ;WAIT FOR OPERATOR RESPONSE 

3797 013622 012700 000036 MOV #30.,R0 :DELAY FOR HALF DUPLEX 

3798 013626 104010 DELAY 

5799 013630 023727 000700 000040 CMP TEMPCH, #40 ;TEST IF PRINTABLE 

3800 013636 103770 BLO 3$ ;BRANCH IF NON-PRINTABLE 

3801 013640 022737 000177 000700 CMP #177, TEMPCH :CHECK IF CHAR IS RUBOUT 

3802 013646 001410 BEQ 5$ ;BRANCH IF YES 

3803 013650 104017 PRNT ;CHECK IF PRINTER IS READY 

3804 013652 113777 000700 164740 MOVB TEMPCH,aTPB ;PRINT CHAR. (BELL SHOULD SOUND) 

3805 013660 104013 SCRLF :SEND A CRLF 

3806 013662 000754 R 2$ sREPEAT 

3807 013664 104007 4$: TYPEM ; TYPE ERROR MESSAGE 

3808 013666 014745 EO25MB 

3809 013670 104007 5$: TYPEM sPRINT TERMINATION 

3810 013672 014772 ECOEND 

3811 013674 104005 CHAIN sEXIT TO NEXT TEST 

3812 013676 000737 BR 1$ sREPEAT TEST 


eee -_-— 
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sate e AXKK KKK KAKA 
3815 : CHECK SWITCH REGISTER ROUTINE. CHECKS FOR *G TO ALLOW " 
de : CHANGING OF LOC 176. 
3818 0000000000000 
3819 
3820 saeeeeeeeerereeee 
3821 013700 CHGFS: 
3822 013700 022737 000176 000714 CkSwR: CMP #SWREG,SR ; SOFTWARE SW REG PRES? 
3823 013706 001132 BNE OuT :NO,GET OUT 
3824 013710 105777 164676 TSTB alKs iYES, 1S yg READY? 
3825 013714 100127 BPL OUT ;1F NOT, GET OUT 
3826 013716 017737 164672 000722 MOV aTKB,T1B : STORE BUFFER 
3827 013724 042737 177600 000722 BIC #177600,T1B sSTRIP OFF GARBAGE 
3828 013732 022737 000007 000722 CMP #7,11B i347 
3829 013740 001115 BNE Ou! :1f NOT GET OUT 
3830 013742 104000 TYPE > ECHO *G 
3831 013744 015200 CNTG 
3832 013746 005077 164646 CLR aTPB 
3833 013752 104000 CNILU: TYPE ;ALLOW SWR= TO BE TYPED 
3834 013754 015206 SWR 
3835 013756 017746 164732 MOV @SR,-(SP) >MOV CONTENTS OF SwR 
3836 013762 004737 014214 JSR PC ,TYPOC sOCTAL TYPE OUT ROUTINE 
3837 013766 022600 CMP (%6)+,R0 :CORRECT STACK POINTER 
3838 013770 104000 TYPE ;ALLOW NEW= TO BE TYPED 
38359 013772 015216 NEW 
3840 013774 005037 000724 CLR TEMPST ;CLEAR TEMP STORAGE LOC 
3841 014000 012737 000007 000726 MOV #7,COUNT ;SET UP TO ACCEPT 7 CHAR 
3842 014006 105777 164600 1$: TSTB aTKs > 1S CHARACTER THERE? 
3845 014012 100375 BPL 1$ ;1f NOT, TRY AGAIN 
3844 014014 117737 164574 000722 MOVB aTKB,TIB ;PICKUP CHARACTER 
3845 014022 105777 164570 8$: TSTB aTPs ;CHECK PRINTER STATUS 
3846 014026 100375 BPL 8$ ;NOT READY, TRY AGAIN 
5847 014030 113777 009722 164562 MOVB TIB,aTPB sPRINT IT 
3848 014036 042737 177600 000722 BIC #177600,11B sSTRIP ~ GARBAGE 
3849 014044 122737 000025 000722 CMPB #25,11B :1S IT A “U 
3850 014052 001001 BNE 2$ 3 ‘ieee IF NOT 
3851 014054 000736 ’ 3$: BR CNILU “START OVER 
3852 014056 122737 000015 000722 2$: ‘CMPB WiS,TIB :1S IT A <CR> 
38535 014064 001005 BNE 4$ >BRANCH IF NOT 
3854 014066 104013 SCRLF 
3855 014070 022737 000007 000726 CMP #7, COUNT sWAS <CR> FIRST CHAR 
3856 014076 001033 BNE 7$ ;CHANGE SWREG IF NOT FIRST <CR> 
3857 014100 122737 000060 000722 4s: CMPB #60,T1B ;1S 11 LESS THAN 0 
3858 014106 003004 BGT 5$ ;GO 10 ? ROUTINE IF SO 
3859 014110 122737 009067 000722 CMPB #67,11B 21S 11 GREATER THAN 7 
3860 014116 002003 BGE 6$ ;G60 10 ? ROUTINE IF SO 
3861 014120 104000 5$: TYPE :SET UP FOR ? TYPEOUT 
3862 014122 015226 QUEST 
3863 014124 000753 BR 3$ ;START INPUT STRING OVER 
3864 014126 006337 000724 6$: ASL TEMPST >MULTIPLY By 10 
3865 014132 006337 000724 ASL TEMPST 
3866 014136 006337 000724 ASL TEMPST 
3867 014142 142737 000060 000722 BICB #60,1T1B :CLEAR OFF ASCII 
3868 014150 153737 000722 000724 BISB TIB, TEMPST :MOV CHAR TO TEMPST 
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3869 014156 005337 000726 DEC COUNT sONLY WANT 6 NUMBERS AND <CR> 
3870 014162 001756 BEC 5$ : IF 7 TOO MANY NUMBERS 
3871 014164 000710 BR 1$ = GET “NEXT CHAR 
3872 014166 013777 000724 164520 7$: MOV TEMPST,a@SR :CHANGE SWR CONTENTS 
3873 014174 000207 OUT: RTS PC ;RETURN TO PROGRAM 
3874 014176 010046 TTINTS: MOV RO,-(SP) : INTERRUPT Fe ae ROUTINE 
3875 014200 010146 MOV R1,-(SP) 7SAVE RO AND R1 
3876 014202 004737 013700 JSR PC,CKSWR :G0 10 SUBR” TO SERVICE TTY INTERRUPT 
3877 014206 012601 MOV (SP)+,R1 sRESTORE R1 AND RO 
3878 014210 012600 MOV (SP)+,R0O 
3879 014232 000002 RT] ;RETURN FROM INTERRUPT 
3880 
3881 
3882 
5883 014214 112737 000001 000730 tTyPoc: Move WIFILL 7SET THE ZERO FILL SWITCH 
3884 014222 112737 000006 000733 MOVB #6, MODE +1 :SET FOR SIX(6) DIGITS 
3885 014230 112737 000005 000734 TYPON: MOVB #5,CNT :SET THE ITERATION COUNT 
3886 014236 010346 MOV R3,-(SP) :SAVE R53 
3887 014240 010446 MOV RG,-(SP) sSAVE RG 
3888 014242 010546 MOV R5,-(SP) ;SAVE RS 
3889 0142464 113704 000733 MOVB MODE+1,R4 ;GET THE NUMBER OF DIGITS TO TYPE 
3890 014250 005404 NEG R4 
3891 014252 062704 000006 ADD #6,R4 ; SUBTRACT IT FOR MAX. ALLOWED 
3892 014256 110437 000732 MOVB R4 ,MODE ;SAVE 1T FOR USE 
3895 014262 113704 000730 MOVB FILL ,R4S ;GET THE ZERO FILL SWITCH 
3894 014266 016605 000010 MOV 10(%6) ,R5 :PICKUP THE INPUT NUMBER 
3895 014272 005003 CLR R3 >;CLEAR THE OUTPUT WORD 
3896 014274 006105 1$: ROL R5 :ROTATE MSB INTO ‘’C’’ 
3897 014276 000404 BR 3$ :GO DO MSB 
3898 014300 006105 23: ROL R5 ;FORM THIS DIGIT 
3899 014302 006105 ROL R5 
3900 014304 006105 ROL R5 
3901 014306 010503 MOV R5,R3 
3902 014310 006103 3$: ROL R3 :GET LSB OF THIS DIGIT 
3903 014312 105337 000732 DECB MODE ; TYPE THIS DIGIT? 
3904 014316 100015 BPL 7$ :BR IF NO 
3905 014320 042703 177770 BIC #177770,R3 >GET RID OF JUNK 
3906 014324 001002 BNE 4% : TEST FOR 0 
3907 014326 005704 TST RG : SUPPRESS THIS QO 
3908 014330 001403 BEQ 5$ ;BR IF YES 
3909 014332 005204 4$: INC RG ;DON'T SUPPRESS ANYMORE 0'S 
3910 014334 052703 000060 BIS #60,R3 ;MAKE THIS DIGIT ASCII 
3911 014340 105777 164252 5$: TS1B8 aTPS ;1S PRINTER READY FOR CHARACTER? 
3912 014344 100375 BPL 5$ ;1F NOT, TRY AGAIN 
3913 014346 110377 164246 MOVB R5,a1PB ; TYPE OUT NUMBER 
3914 014352 105337 000734 7$: DECB CN" ;COUNT BY 1 
3915 014356 003350 BGT 2$ :BR IF NORE TO DO 
3916 014360 002402 BLT 6$ :BR IF DONE 
3917 014362 005204 INC RG ; INSURE LAST DIGIT ISN'T A BLANK 
3918 014364 000745 BR 2% :GO DO THE LAST DIGIT 
3919 014366 012605 6$: MOV (SP)+,R5 . sRESTORE R5 
3920 014370 012604 MOV (SP)+,R4 SRESTORE RS 
3921 014372 012603 MOV (SP)+,R3 sRESTORE R3 
3922 0143574 000207 RTS PC ;RETURN FROM INTERRUPT PC 


3923 ,;ereereorerenreeest 
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014376 
014404 
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052123 
030514 
046113 
052116 
042503 


042412 


030060 
047503 


052123 


030060 
046525 


040 
020040 


055103 
0 


041511 
020061 


005200 


042116 
040520 


005200 
051516 
020046 
030514 
047125 
042524 


000 
005017 
021440 


041440 
051516 


020105 
0 


046525 
020117 
0 


MACY11 30A(1052) 


STARTM: 


ENDPAS: 


PASMES: 


DL11S: 


DL11S1: 


HDRMSG: 


HDRO: 


EO25MA: 


EO25MB: 


ECOEND: 


E02 3M: 
LINES: 


- SBTTL 
-ASCII 


~ASC11 


~ASCI2 


-ASCI1 


~ASCIZ 
-ASCI1 
~ASC1Z 


-ASCIZ 


eASCIZ 


ASCII 


ASCIZ 


eASCIZ 


~ASCIZ 


~ASCI] 
~ASCI] 
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MISC. DIAGNOSTIC MESSAGES 


MISC. DIAGNOSTIC MESSAGES 


<7><2><ACRLF><17>/CZLACFO LA36 TERM (DL11 8 KL11)/<ACRLF > 


/LA3S6 TERMINAL DIAGNOSTIC/<ACRif > 


/DL11 & KL11 INTERFACE/<ACRLF ><12> 


<ACRLF><12>/END OF PASS / 


/0000/<ACRLF><12> 
<ACRLF>/CONSOLE & / 


/O0 DLI1"S UNDER TEST/<ACRLF><12> 


<7><2><ACRLE><17><12>/TEST #/ 


/OCO COLUMNS/<ACRLF><12> 


/TYPE ANY PRINTABLE CHARACTER / 


/AND LISTEN FOR BELL 


<ACRLF>/NOT ENOUGH COLUMNS/<ACRLF > 


<ACRLF>/ECHO TEST TERMINATED/<ACRLF > 


/ sMESG FOR TEST £024 


SEQ 0095 


+ Ome oe ee - 


CZLACFO LA3S6 TERM (DL11 
15-JUN-79 


CZLACF P11 
3980 015027 
3981 015034 
3982 015041 
3983 015046 
3984 015054 
5985 015062 
3986 015070 
3987 015071 
3988 015075 
3989 015101 
3990 015106 
3991 015114 
3992 015122 
3995 015124 
3994 015132 
3995 015140 
5996 015146 
3997 015154 
3998 015162 
3999 015170 
4000 015176 
4001 
4002 
4005 
4004 015200 
4005 015206 
4006 015214 
4007 015216 
4008 015224 
4009 015226 
4010 


020040 
020040 
000040 
020040 
000040 
037440 


000001 


020040 
100040 
005017 
052103 
020124 
051105 


042526 
042104 
050131 
020131 
041501 


020105 
040527 
044527 
042522 
046440 
020131 
930440 


043536 
053523 


042516 
000040 


& KL11) 
15:33 


020040 


020040 
116 
040 

020105 

044103 

042524 


047523 
042522 
041524 
020107 
046505 
042101 
033067 


000040 
036522 


036527 








—— ee ——___ 
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LINESA: 
MESG3: 


NOSWR: 


: CHGF6 
CNTG: 
SWR: 
NEW: 


QUEST: 


eASCIZ 
~ASCI2 


-ASC11 
-ASCI1 
-ASCIZ 


~ASCIZ 


/ 


<ACRLF><17><12>/SELECT TEST NUMBER 


/EVEN/ 


/ODD 
/TYPE ANY CHARACTER/ 


USE SOFTWARE SWITCH REG AT MEMORY ADDR 176/<7> 


/ 
4 


aenrenrtatreererter 


~ASCIZ 
»ASCI2 


ASCIZ 
~ASCI7 


/ 
/ 


/ 
/ 


, eet eneseresetenr 


~ END 


? 


Ae oF 
SWR= / 


NEW= / 
/ 


/<ACRLF > 


/ 


SEQ 0096 


ees eee «a See C2Esee e=- oe © o. 
- A — anndeGMreNheeen~-eheeesst set ste ee 


_ a Lee ——— — 
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KL 
CZLACF P11 135-JUN-79 15:33 CROSS REFERENCE TABLE -- USER SYMBOLS SEG 0097 
ACRLF = 000200 icone td 3926 3932 3937 3942 3945 3947 3949 3953 3956 3970 3974 
ADD} 006756 2758 27748 
ADD2 006700 2756 27608 2773 
ADD3 006746 2761 2771" 2776 
ADJRG 012034 3464 3476 3481 5482 3483 35048 
ADTENP 004166 2167 1844 
AREAD = 104021 1287# 2692 2712 2735 2764 2794 2822 
ATO 005354 1524 1587 1773 25968 
ATOx 005356 1412" 1416 1419" 1421" 1522 235978 
AT1 005406 1416 1421 1774 25397 24128 
A110 006032 1781 2528 25468 


1782 2547 25648 


AT12 006150 1783 2565 25828 

A115 006204 1784 2583 26064 

A114 006264 1785 2607 26308 

AT15 006350 1786 2631 2655¢ 

A‘16 006450 1787 2656 26844 

A117 006516 1788 2685 27044 

AT2 005440 1775 2413 24278 

A120 006566 1789 2705 27258 

AT21 006660 1790 2726 27538 

A122 006764 1791 2754 27848 

A125 007072 1792 2785 28148 

A124 007204 1793 2815 2855a 

AT3 005472 1776 2428 24438 

ATG 005524 1777 2444 24588 

ATS 005614 1778 2459 24828 

AT6 005672 1779 2483 2503# 

AT7 005762 1780 2504 25278 

BITO = 000001 12428 

BIT! = 000002 12438 

BI110 = 002000 1252a 

BIT11 = 004000 12534 1260 

BIT12 = 010000 12548 

B1T13 = 020000 12554 2254 

B1T14 = 040000 12564 1259 

B1T15 = 100000 1257# 1562 1968 

BIT2 = 000004 12444 

BIT3 = 000010 12458 

BIT4 = 000020 12464 

BIT5 = 000040 12478 

BIT6 = 000100 12488 2465 2466 2470 2471 2489 2493 2510 2511 e515 2516 2534 2536 
2593 2616 2641 2665 2740 2769 2800 2826 2877 2888 3123 

BIT? = 000200 1249# 1594 1621 1718 7 

BI118 = 000400 1250# 1571 1592 1654 

BIT9 = 001000 1251# 1266 

BRCTR 000664 1374@ = =2116" «21238 

BTOASC= 104023 1289# 1473 1510 3457 

BUFR 015166 3739 3757 3761 37735a 

CHAIN = 104005 1275#@ 2298 2307 2402 2418 2453 2449 2474 = 2496 2519 2539 2556 2575 
2596 2619 2647 2669 2697 e7i?7 2745 e772 2806 085} 2892 294) 2969 
att 3099 3134 3192 5256 3324 3373 3595 3425 3486 3550 3685 $771 

CHAINN 001500 1550# 1830 


CHAINY 001626 15758 1656 


Se sees ttsnessesneeers 








otis A 
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CZLACF P11 13-JUN-79 15:33 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ OO98 
CHALT = 104006 12768 1413 1422 1612 
CHGF 2 001046 14258 
CHGF3 001500 15494 
CHGF& 006574 27598 
CHGFS 013700 38214 
CHGF7 007204 28524 
CHLT 000736 14064 1831 
CKPOS 011766 3460 3469 34904 
CKSWR 013700 1556 3822s" 3876 
CNT 000734 13954 3885 59148 
CNTG 015200 3831 40044 
CNILSW 000634 13628 1449 1551 1649 1651 1654 1693« 1704* 1706* 1715 2357 
CNTILU) 013752 1440 38334 3851 
CNTR 000716 13874 2863+ 2869" 2882 
CNYVCTR 004160 2165* 2178 218184 
CONADD 000602 13454 2137 2248 2319 2339 2 341 
CONIT 003776 1452 1717 2137#@ 2193 
CONSET 004002 21384 2201 
CONVEC 000604 13468 2147 2148 
COUNT 000726 1392¢@ 3841*« 3855 3869 
COUNTS 000666 137584 2196 2203 22598 2327 
CR = 104022 12884 1921 3086 3094 3129 3145 3185 3249 3283 3300 3318 3473 
CRBUF 000646 13678 
CRLF = 104012 12804 1916 1951 2351 2938 2964 3016 3018 3178 3187 3191 3238 5251 
3255 3288 3305 3323 3369 3372 3390 3465 3572 3594 

CTRA 000650 13684 

CURTST 000676 13794 1526 1589 1599 1628 1725 2099 

DELAY = 104010 12784 1659 1667 =. 1680 1690 2122 2295 2304 2314 2550 2361 2569 2691 
2711 2734 2763 2793 2821 2866 3171 3189 3231 3253 3348 3417 3542 
3592 3653 3742 3798 

DIGIT 004162 2170* 2173 2176* 2177 21828 

DIRTN 012114 35445* 3504 35118 3518e 35218 

DISPLA 000720 13898 1435 

DISPRE 000174 13298 1435 

DLADR 000606 13474 1489 

DLCNT 000656 13714 1491* 1498* 1507 2194 2196 2256 2259 

DLNR 000610 13528 1490 

OLY 003524 1833 20354 

DL115S 014551 1512 39478 

DL11S1 014564 1508 39494 

ECOEND 014772 2297 2306 3549 3682 3770 3810 39748 

EHALT = 104002 12724 8 2125 

EHLT 003434 1827 19694 

EMTINT 003010 1312 18098 

EMTTAB 003064 1818 1825# 

ENDPAS 014523 3485 39428 

END2 001420 1493 15064 

END2A 001406 1488 1502 

END3 001350 14928 1505 

END4 001422 1500 1503 15078 

£020 012120 1757 3537" 3787 

E021 012170 1758 3538 35634 

EQZ21A 012176 2299 3566" 

E022 012226 1759 3564 35828 

EQ22A 012234 2308 35858 

E025 012500 1760 3583 36488 


a A A A CE RS NE et i a —< 0 awe 





ee eee 
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CZLACF P11 135-JUN-79 15: CROSS REFERENCE TABLE -- USER SYMBOLS SEG 0099 

EO23M 015021 3663 3680 3978" 

E024 013022 1761 5649 3735a 

E026B 015030 2353 3738" 83763 3772 

E025 013570 1762 3736 37868 

EO2SMA 014645 3792 3795 39598 

EQ25MB 014745 3808 5970" 
003406 1826 1963¢ 

ERRHLT 003442 1972a 

ERROR = 104001 12718 2404 2420 2435 2451 2468 2473 2495 2513 2518 2538 2555 2574 
: 2595 2622 2643 2667 2677 2696 2716 2742 2775 2802 2828 2839 2861 


EVEN 015071 3706 3987a 

FILL 000730 13938 3883+ 3893 

FORWD = 104024 12908 1525 1584 1588 1598 1527 1724 

FORWDA 003702 20994 2103 | 

FORWOB 003710 2096 21014 

FSTDL 000632 13618 1494* 2197 2260 

HDRMSG 014613 1939 39534 

HDRO 014627 1471 2928 3218 3448 39568" 

HERE 011534 3419 34258 

ICTR 000660 1372@ 1568 2097* 2102s 

IDEZ 007700 2996 30244 

INCHK 000710 13844 14468 1657* 1662* 2261 2333 

LEVEL 000654 1370# 16406 1450* 1521+ 1563 1580 1600* 

LF = 104014 12824 1952 3098 3119 3133 3182 3248 3415 3477 

LFCNT 000706 13838 3114s 3118 3122" 3123 

LINES 010446 3116 31488" 

LINES 015023 3686 39798 

LINESA 015927 3699 3980" 

LOGICA 011524 1321 34218 

LS111 = 001000 12664 2550 2688 2708 2731 2760 2790 2818 2857 

MACHER 000004 13028 1447* 1488 1493« 1582+ 1596* 1613* 1707" 2400" 2416 24318 24478 

MESGS 015041 1661 39828 

MG24 013012 3667 3673 3715 

MG25 013016 3677 37198@ 

MODE 000752 13948 3884 3889 3892 3903" 

MONIC 012274 3602" 3660 

MOVNUM 012740 3661 3674 3678 36998 

NEW 015216 3839 4007 

NEXT 001746 1591 15964 

NEXT1 001766 1593 1600# 

NITRSW= 004000 12604 1565 1651 

NOSWR 015124 3993" | 

NPCODE 010141 2997 30514 

NXTST 000640 13644 15268 1585 1587* 1590 1595* 1624* 1625 1721* 1722 2092 20948 

ODD 015075 3708 3988" 

OPEN = 000000 1258" 1361 1362 1363 1364 1365 1366 1367 1368 1369 1370 1371 1372 
1373 1374 1375 1376 1378 1379 1380 1381 1382 13583 1384 1385 1387 


OPMSG 915101 2865 5989" 

OuT 014174 3823 3825 3829 38738 

OUTPUT 0135114 3746 37578 

PARITY 000702 1381H# = 2214" =2219% = 22228 = 2224e = 3.704 
PASCNT vi21l6 5445* 3450" 3451 3455* 3455 35238 
PASMES 014542 3454 3494 3496 39458 


0 
PCHAR 000704 1382@ 2212" 22135* 3688 5694" 5695"  3696« 


ee em 





eae, 





t-te 
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CZLACFO LA36 TERM (DL11 & x 

CZ7L ACF .P11 15-JUN-79 15:33 CROSS REFERENCE TABLE -- USER SYMBOLS SEG 0100 

PFAIL 003546 1451 20544 

POPSP = 005726 12614 

POPSP2= 022626 12624 1506 1574 1642 2293 2302 2311 2352 2598 2621 2645 2676 27h 
2774 2804 2838 288) 2895 

PRGID 000644 13664 1448 1554 1562* 15948 1619¢ 1621* 1718 1965 1968 2095 

PRGTAB 002614 1624 1721 17414 

PRINTC= 104015 12834 1477 1918 1923 1927 1937 1946 1950 2933 2961 2972 2976 2978 
30035 3008 3014 3080 3093 3126 3128 3137 3139 3142 3162 3166 3167 
3175 3181 3196 3222 3226 3227 3235 3241 3243 3245 3275 3295 3309 
3346 3389 3412 3461 3470 3495 3495 3497 3499 3569 3588 3767 

PRNT = 104017 12854 1668 1681 1691 1726 1890 1894 1896 3545 3751 3803 

PRTHDR= 104016 12844 2926 2951 2995 3076 3113 3158 3216 3271 3341 3386 3409 3446 
3539 3505 3584 3650 3737 3788 

PRTY4 = 000200 12644 1358 1360 

PRTY7 = 000340 12634 1313 2462 2486 2507 2531 

PSwW = 177776 12388 2799 

PTO 007374 1595 1741 29248 3408 

PT] 007450 1742 2925 29498 

PT10 011270 1749 3270 3339" 

PT11 011426 1750 3340 33848 

PT12 011460 1751 3385 3407¢ 

PTI12A 011466 34104 3426 

P117 011550 1756 34418 

PT17B 011540 34384 3439 3442 

P117D 011600 3440 34498 3487 

P12 007572 1743 2950 29934 

P13 010166 1744 2994 30748 

PT4 010506 1745 3075 3llla 

PTS 010464 1746 3112 31568 

PTSAL 010632 3186 3190 31944 3250 325%. 

P16 010670 1747 3157 32148 

P17 011056 1748 3215 32698 

QUEST 01522 3862 4009 

READ = 104020 12864 1663 1676 1686 3540 3651 3740 3796 

READC = 104025 12914 

READ! 004300 2202 22114 

REF 010416 3117 3132 31364 

REPT 000662 1373a@ 2285 2289 2568* 23718 35668 3568 3585* 3587 

RESTRT 003604 2062 20654 , 

RTNNO 000636 13634 1520* 1578 1940 1947 2093 2263 227% 2279 2283 2287 2291 2300 
2309 2335 2347 2365 2 566 2569 

SAVR6 005602 2061* 20648 2067 

SCOPSW= 040000 12598 1556 1963 

SCOPTR 000642 13654 1558 1560 2098+ 210ie 

SCRLF = 104013 12814 1888 3760 3805 3854 

SELWLT 000752 1407 14114 | 

SKIP C01722 1523 15928 

SPARET 003160 1847 1848 1849 1850 1851 1852 1853 1854 1855a@ 1856 

SPBOT 000600 13408 1423 1583 1§97 1614 1708 

SPC 007562 29778 3083 3089 8 3291 3313 

SPCNT 000674 1378a 3077« 3087« 3088 3095* 3096 

re Gor; Baha Sk 

S 4 

SR 000714 1386a 1429 14348 1438 1463 1556 1565 1571 1$76 1592 1615 1965 22%%6 
2550 2688 2708 2731 2760 2790 2818 2857 5B22 3835 SR7 20 


START 001026 1332 14218 2075 


Se eee arene -— 


Ss nt seceetieste ase 


a A At tne eee —— 





ee te 
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79 


erry 
<g> 


STARTM 014576 14 39268 

STARTX 001042 1414 1417 1420 14238 

START? 000754 1333 14128 

START2 000772 1334 14154 

STARTS 001010 1335 14184 

STLSPV 003474 1829 20014 

STLSRV 003444 1828 19844 

STPCHV= 104004 1274# 2586 2610 2654 2659 


STPPA 003512 2001* 20048 

STPRA 003462 1984* 19878 

STRORV= 104003 1275# = 2729 2757 2788 2825 2875 2886 

STRLN 012662 3656 3672 3676 5685 a 

SWR 015206 5834 4005# 

SWREG 000176 135308 1434 1438 5822 

TEMP 000712 13854 = 2248* 2249 2250 2252* 2253" 2319% 23208 2321 2541" 2342+ 


TEMPCH 000700 13804 1664 1677 1687 1694 1696 1698 1700 1702 1731 1734 
23438 


43 
38 22\ie 
15 
43 3745 


TEMPST 000724 13918 38460" 3864" 3865" 3866" 3868 3872 

TENPWR 004164 2169* 2171 2175 21838 

TERM 013156 2312 3744 57698 

TESTC 002552 1670 1683 17314 

118 000722 1390# 3826"  3827* 3828 5844" 3847 3848" 3849 3852 5857 3859 5867* 3868 
TIMER 000672 1377# = 1433" 2036 

TKB 000614 tg 1444 1645 1669 1682 1692 2140" 2211 2417 2715 2882 5546 3826 
TKLVL 000624 13588 1443 1988 2766 2796 

TKS 000612 135538 1445* 1643 2119 2138* 2207 2209 2401 2465* 2466 2470" 2671 2489e 


2495 2694 2714 2736* 2740" 27598 2765" 2769* 2771" 2795" 2800" 2805* 2825 
2826* 2829" 2859 2867 2877+ 2883 2888" 2891" 3824 3842 


TKVTR 000622 1357 1441 = 1986) 2147" = -2833e 

TPB = (000620 1356# =61669* = 1682" = 1692" «= 727* «= 1B91* «= «1895* «=«1B97* «2118 «2145 (be 24GB S 7 Te 
3546* 3752% 3804" 3832" 3847" 3913 

TPBS 004072 2145* 21530 

TPLVL 000630 1360# 2005 2612 2637 

TPS ss 0006 16 1S558 0 21)7s 2142 2th Se 2284. 2kS2.. 2690 Ste 2514- 2h Se 25a See (2586 
2553-2572 2589" 2593" 2615+ 2616+ 2618+ 2636* 2641+ 2646" 2661+ 2665" 2668+ 

4 

TPSS 004070 2142" 21526 

TPVTR 000626 1359# 2003 «2148 = 2149" 26718 

TTINTS 014176 1442 38748 

TTYCTL= 106011 12798 «61415 1418 = 1553. 2265S 2337 

TTy1 002070 16428 1834 

TT¥1B 002154 1650 1655 1657# 1728 2358 

TYP = 003164 1825 18794 | 

TYPE = 104000 1270 2864 3662 3679 $794 3830 3833 3838 3861 

TYPEM = 104007 i277@ 1478 1ST) 18D. GSB 2065. 2296 ROS ea? SRIF kPa Sak 
3681 3769 3791 3807 3809 

TYPM = =—-003252 1832 19098 

TYPOC §= 014214 3836 0«©=— 38834 

TYPON 014230 38850 

WAITF © 001772 14t3e 6141S" 1418 1422-1573 e128 4825 62H CORD AR OCNBSftSG CSS 
1763 17h (i176 1G CTOT GR TT Te A CC CCI 
1797, «1798 = 1708)=—(=«48OD = BON OR «2285 2587 

WIDTH 000052 13698 «= 1470" «= 2932, 3078 =— 30963315 8131 = 8159 3168 ~=— 8179S 8196S 8219S 





SO EES ES OS ee . 


a oe eee es Oo ee ee — + oe we 


ne ee ee ee 


Cc tt ttt a, 


CZLACFO LAS6 TERM (DL11 
(7 ACF P11 


XCSR 
SARE AD 


SSCRLF 


. ABS. 


000670 


003726 
004074 
003314 
0035062 
003650 
003304 
003324 
004402 
004412 
004200 
004272 
903230 
015232 


015232 


1 3-JUN-79 1 


000 


ERRORS DETECTED: 0 


CZLACF .BIN,CZLACF.LST/CRFE/SOL/NL:TOC=CZLACF.P11 
RUN-TIME: 
RUN-TIME RATIO: 
USED: 


CORE 


1¢ €2 | 
7K 


G8 09 OS 09 OD OD OO 90 OD Wa wi 
LA L~ iw) 
© Ww Ww 
uy 


SECONDS 
142/40=3.5 
(15 PAGES) 


37744 


sess 
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3307 3444 3458 3467 3507 
2200 2205* 2260" 2267 2269* 
23351¢ 
2210 
1304 1506 1508 1310 1314 


cede te eee 


3509 3567 
2270 2317e 
1515#@ 13198 


13234 


3789 
2521 


13278 


SEQ 0102 


2525 


13388 


memmemwees eee aes 2 + - 
LLL ES Se ne eee re ee eree ee  ee ee Ce en ree aE > ere ee ee re ees ee eee eee eee 


